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Version: *v04-000' 


RDRRRARARELALAAAALALALEARA AAAS AALAAA LEAL AAR AAS ARS ASA SEES ARR ERASER RRR R RRA ES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL a ta CORPORATION, ” MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVE 


THIS i ohbers. I$ Sgt pe eee A LICENSE AND MAY BE USED AND COPIED 
LY ACCORDANCE WIT 0 UCH LICENSE AND WITH THE 
NELUSION OF THE ABOV COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE 
OPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W CE 


ITHOUT NOTI 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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c 

{ 

{ 

{ 

{ 

{ 

{ 

$ 

} FACILITY: VAX/VMS System Macro Libraries 
; ABSTRACT: 
{ 

{ 

{ 

{ 

{ 


This file contains the SDL source for all o ereere system congrot 
r 


blocks, from Q@ to Z. That is, all control blocks from QAA to 2722. 


ENVIRONMENT : 
n/a 
{ 
{ AUTHOR: The VMS Group CREATION DATE: 11-Aug-1976 
¢ mop MODIFIED BY: 
v03-125 ROW0410 Weber 6-AUG-1984 
Define a UCBSL sit 3'pr ee ind{ cating vax VAXcluster state transition 
processing in progress. uCcBs This bit is used to 
force mount verificati -. to senate ge (or as a part of) a 
VAXcluster state transition. 
{ v03-124 ACG0441 Andrew C. Goldstein 2-Aug-1984 15:16 
Add CLUSLOCK flag to *VCB, DISMOUNT flag to utB 
v0O3-123 TCMO00S Trudy C. Matthews 23-Jul-1984 16:50 
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Add RPBSB_CTRLLTR to SRPBDEF. 


v03-122 ACG0438 Andrew C. Goldstein, 23-Jul-1984 15:16 
Add VCA structures for cache interlocks 


v0O3-121 MMD0314 fea Dumont, 19-Jul-1984 12:23 
Add SXGDEF to LIB.AL 


v03-120 ROW392 Ralph 0. Weber 19=JUL=-1984 
Add UCBSW_DEVSTS bit UCBSV_MSCP_WRTP which is the inclusive or 
of all thé various MSCP write protection bits. 


v03-119 LY0501 Lorey Yetto 6-JUL-1984 13:11 
Add subfields to UCBSL_MEDIA_ID 


v0O3-118 ROW0379 pole 0. Weber 21-JUN-1984 

Add UCBSW_2P_MSCPUNIT to provide for future implementation of 
dual-path UDA support via MSCP unit number switching in the 
MSCP class driver. 


v03-117 ROW0357 Ralph 0. Weber 1-MAY-1984 
Add UCBSV_MNTVERPND in UCBSL_STS. This bit will be set along 
with UCBSU_MNTVERIP when it Ts necessary to stall a busy 
device due to loss of quorum. Also add UCBSV_MSCP_PKACK in 
UCBSW_DEVSTS for MSCP devices. This will be Used By the disk 
class driver to indicate that a IO$S_PACKACK operation is in 
progress. 


v03-116 CDdS0012 Christian D. Saether 18-Apr-1984 
Add web$v_noacclock, remove web$v_acclkid. 


VO3-115 GRR4115 pegery R. Robert 12-Apr-1984 
Split SSMBDEF into symbiont services and print symbiont 
sections. Move Latter into SPSMDEF. 


vO3-114 LJK0265 Lawrence J. Kena 
Add SHL_SIZE cell and OLD_SHL SIZE con 
to allow image activator and ANALYZE /IMAGE to handle 
shareable image List elements of different sizes. 


vO3-113 LMPO221 L. Mark Pilant, 7-Apr-1984 13:13 
Add a pointer to the ORB in the UCB. Also remove the 
definitions, in the UCB, of the owner VIC, volume 
protection, and the ACL queue segment List head. 


v03-112 ROW0337 Ralph 0. Weber 7-APR-1984 
Remove UCBSL_CANLINK. This field is no longer used. 


v03-111 MHB0118 Mark Bramhall 26-Mar-1984 
Add UAF$V_DISRECONNECT. 


M1RO370 Michael I. Rosenblum 20-Mar-1984 

Add definitions for TTY$V_ST_TABRIGHT gne CTSLOW 

— cote to store the cursor positioning from the 
ast read. 


9-Apr-1984 
onstant to SSHLDEF 


nS 


v03-110 
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v03-109 


v03-108 


v03-107 


v03-106 


v03-105 


v03-104 


v03-103 


v03-102 


v03-101 


v03-100 


v03-099 


v03-098 


K 
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$SA0020 7, 20-Mar-1984 
Moved UCBSW OLEN® ives ae /tape extension to main UCB. 
Changed UCBSW_DCCB in disk/tape extension to UCBSL_DCCB. 


ROW0325 aiph © ober 19-MAR-1984 

Remove UCBSL “A100 and vee L_MVIOQBL; these fields are no 
longer used.” Add UCB$Q_MSCP_RESV, eight bytes of space 
foserved, a e' use \, new “ASC goat arse atte. emented dur ing the 
Version 4 Life-time. Add V to the standard 
disk VCB and vcBsa. _SH DM ORES . “the. sr ow set member VCB, 
both fields provide reserved soege for golegentat on of 


volume shadowing riche the Vers 4 life-time. 
JWT0163 Jim Teague 10-Mar-1984 
Enlarge name fields if shareable image tise” (SSHLDEF) 
ACG0400 Andrew C. Goldstein, 10-Mar-1984 2:01 
Add quota cache structures for cluster-wide quota cacheing 
WwHM0001 Bill Matthews 02-Mar-1984 
wy A vase SLVSA_SYSVECS( sadrese of vectors in SYS.EXE) 
° 
CDS0011 Christian D. Saether 8-Mar-1984 
Add WRITE_TURN tlag to wCB. 
PRDOO72 Paul R. DeStefano 27-Feb-1984 
patos sont..058 (Link to newest Cluster System Block) 
o $SBDEF. 
ROWO3 ~FEB-1984 


Weber 27 
Change Ut “ces. TU OvRSEaciiK’¢ to Ucasv TU_OVRSQCHK in 
Add a fourth type vCB for shadow set 
te ay sha fields to the disk vB for shadow set and 
enhanced mount verification handling. 


$SA00 Sta ~ 27-F eb-1984 

Changed, Uc eng peta. fn me /tape UCB extension to UCB$W_DCCB. 
QCEN to disk/tape UCB extension. 

Deleted Brest WRTCNT. 


MMD0244 oi Rag umont 
Add support for VCBSV_FIL _ACCESS 


$S$A0010 Sta 14-Feb-1984 
Added UCB$V_ DATACACHE ry 7 disk-specific bit in UCBS$W_DEVSTS. 
Added UCB$:"DCCB in disk/tape UCB extension. 


Added UCBSL_WRICNT & UCBSW gol Gn te to support MONITOR disk class. 
(Done on behalf of Tom Caférella.) 


ROWO0303 Ralph 0. Weber 10-F EB-1984 
beasa DIRScO.” of UCBSM_AST mARMED defined as the sign bit of 


24-Feb-1984 14:59 


v03-097 ROW0300 Ralph 0. Weber 9-FEB-1984 


——_——__- --—  --— -- — 71 
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v03-096 


v03-095 


v03-094 


v03-093 


v03-092 


v03-091 R 


v03-090 


v03-089 


v03-088 


v03-087 


v03-086 


v03-085 


v03-084 
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Add UCBSV_MSCP_FLOVR, a bit which a ae po driver toggles 
(changes the state of) whenever a dev ce sucesstulty moves 
from one controller to another. 


ROW0297 Ralph 0. Weber -FEB-1984 

Add UCBSV_TU_ EQNOP a device dependent seen s bit which the 
tape clas$S driver sets when the wait count is bumped due to a 
sequential nop operation being in progress. 


PCG0001 Peter George 06-f eb-1984 
Add UAFSV_DISREPORT. 
LMPO188 ark Pilant, 4-Feb-1984 11:19 
Add a staeetttectiion’ block to the VCB. 

TMK0004 Todd ™ 04-F eb-1984 

Add a NI device pie + ny Bg te SUCBDEF. 
KPLO100 Peter Lieberwirth 2-Feb-1984 


Lengthen RPB BOOTNDT field to a word. Leave byte definition 
as well. Only newly-defined FLAGS byte need move as a result, 
it shifts left one byte. 


ROWO282 atpo © Weber 14-JAN-1984 

nee UCBSV_ SUPHVASe it to UCBSL_ STS. When set, this bit 
presses pusgees status messages from mount verification. 

Add UCBSL_WAIT Sees to the MSCP UCB extension. This field 

points to a CDBB which is waiting for mount verification to 

complete before beginning single CDRP processing. 


ACGO385 Andre ¢. Goldstein 9-Jan-1984 17:07 
Replace SUAFDEF leuther zation *files with new V4 format 

LMPO0177 Mark Pilant 7-Dec-1983 10:22 
Add an ACL queue “iisthead te the UCB. 

CDS0010 Christian D. Saether 6-Dec-1983 

Add VCBSV_NOSHARE flag. 

SRBO0106 Steve Beckhardt 6-Dec-1983 

Made several og to SRSBDEF. 

ROWO25 Lph Weber 16-NOV-1983 


0. 
Move che generat Rath UcBSY. DEVSTS bit definitions from being 
C gut tele to being a UCB$W_DEVSTS subfield. Also 
redo the MSCP and TU device status bit definitions to 
accomodate Sheos ae discovered dist device status bits. 


ROWO255 14-NOV-1983 
Restore UCBSW_ ect rand Uepbe EC2 symbols which were lost during 
the preparation of R 


TMK0003 Todd Kotz ie Ss 

Lets try again and this time fix both TMK 0088 and ROW0253. 

My previous attempt Coubiy defined the symbol UCBSK 2P_LENGTH. 
Replace one of the definitions with local symbol #2P_LENGTH. 
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v03-082 


v03-081 


v03-080 


v03-079 


v03-078 


v03-077 G 


v03-076 


v03-075 


v03-074 


v03-073 
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TMKO002 Todd M. Katz 12-Nov-1983 

Fix ROWO253 and system build by defining GcOSK oP LENGTH. 
ROW0253 Raton 0. Weber 11-NOV-1983 

Make changes fot ait to accomidate more ches $ qr iver fields 
becom! ng publ rely" ave 3° 4°. Make DEVSTS definitions for 
class driver bits. r sree 7 or all dual-path fields. 


Restructure disk Sad ok. opegit ¢ ger tions of the device 
dependent UCB to add class driver fields and to oer ay some 


unused local-disk fields with these class driver fields. 
TMKO001 To ve A Katz 26-0c t-1983 
Add UAFSL_JTQUOTA within SUAFDEF. 
coscour Christian D. Saether 14-0¢t-1983 
Remove VCBSL _ALLOCLKID. Add various VCB and RVT 
fields to support volume activity blocking for rebuild. 
CdS0008 Christian D. Saether 10-0¢ t-1983 
Add VCBSL_ALLOCLKID. 
JSV04611 Joost Verhofstad 27-SEP-1983 
Add UCBSW_JNL_PROT 

0005 rego ry R. Robert 26-Sep-1983 
Added SSMBDEF, publ c symbiont definitions. 
CWH3076 CW Hobbs 10-Sep-1983 


Add a RPBSB_FLAGS field to S$RPBDEF, and define a bit 
RPBSV_NOSYSDISK, which means that the boot volume is no 
longer present fe.g. for S/A BACKUP from console). 


ROWO0220 Ralph 0. Weber 7-SEP-1983 

Switch bit positions of the Phase 1 in progress and Phase 2 in 
progress flags in the Replacement and Cach "9 Table etrycture 
definition, SRCTDEF. This causes the definition to conform 
with the DSDF specification, from which it is derived. 


Also define UCBSV_LCL_ ya.te in UCBSL $15. This bit being set 


indicates that one of t reasons a disk is volume valid is a 
PACKACK operation aadneaed on the local node. 

CDS0007 Christian D. Saether 24-Aug-1983 

Add RVTST_VLSLCKNAM to the RVT. 

ROWO0211 Ralph 0. Weber 16-AUG-1983 

Add two LENGTH ayehe ls to  SUCBDEF. UCBSK_LCL_DISK_LENGTH is 
the Length of a device-independent UCB for a Tocal disk. 


UCBSK_LCL_TAPE_LENGTH is the length of a aoutase tbe 
UCB for a local magnetic tape. Someday there wi 
aitterent LENGTH symbols for remote disks 


Also make UCB$W_BCR have a longword form for the convenience 
of DBDRIVER. 


and tapes.) 
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v03-070 


v03-069 


v03-068 
v03-067 
v03-066 


v03-065 


v03-064 


v03-063 
v03-062 


v03-061 


v03-060 
v03-059 
v03-058 


v03-057 


AAA AAAAAAAAAAAAAAAAAAAAAAA AAPA AAA AA AAPA AAAAAAAAAAAAAAA 
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ROWO204 Ralph 0. Weber 5-AUG-1983 
Move UCBSL_CPID tren its current overlay with UCBSL_DUETIM to 
anew overlay with UCBSL_LOCKID. 

KTA3072 Kerbey T. Altmann 02-Aug-1983 
ag Fey og - count of number of ONLINEs to 

or 

Change UScatton of RVTSL_STRUCLKID added by CDS0006. 
CDS0006 Christian D. Saether 2-Aug-1983 
Remove RVX structure. 

Add RVTSL ‘sik UCLKID. 
NPK3029 N. kronenberg 29-JUL-1983 


Redefine the SCSS$C_ST status codes to conform to 
the Latest SCA format (error type*8+severity.) 


LY0401 Lerey Yetto 29-JUL-1983 12:15:59 
Add UCBSL_JNL_BTXSEQNO 

JLVO0283 Noy 28-JUL-1983 

Correct fill sindetan ya" UCBDEF. 

JSV0367 Joost Verhofsta 28-JUL-1983 

a journal name Length to 1 

MMDO1 Dum 28-Jul-1983 9:45 


Changed bit in ves EF nese AUTO to NOAUTO to make > tape 
AVL/AVR consistent between DCL and MOUNT system service 


LY0398 Lar 28-JUL-1983 
Add UCB$L_JNL WCBFL 5 a *OCBSL _JNL_WCBBL. Remove 
VCBSL_JNL_WCBFL and VCBSL_JNL_WCBBL. 


CdS0005 Christian D. Saether 28-Jun-1983 
Add VCBSL_VOLLKID, VeASE "EXTCLRID, ond VCASL_FIDCLKID. 


MIROOS2 ael I. Rosenblum 27-Jun-1983 
Add missing dottinlttons tor UCBSL_RTT_BANDEXCL ca BANDEXMSK 


M1ROOS1 Michael I. Rosenblum 24-Jun-1983 
Add $TTYUCBDEF to this module. Also note this Definition 
mnt lene SUCBDEF as it gets a local symbol defined 


in 

CDS0004 Christian D. Saether 23-Jun-1983 

Add VCBST_VOLCKNAM to end of vcb instead of in middle. 

RLRDPATH1 Robert L Beppe ort 23-Jun-1983 
Add UCBSL_DP_ALTUCB to of section of UCB. 
CDS0003 Christian D. Saether 23-Jun-1983 
Add VCBST_VOLCKNAM field. 

wMc0055 Wayne Cardoza 21-Jun-1983 


Increase number of vector pages in SGNDEF 
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v03-056 PRBO198 =JUN-1983_ 13:28 


Paul R. Beck 3 ! 
Add RUCBDEF and RUHDEF (formerly defined in CRUF.SRCIRUF.SDL) 


v03-055 LY0381 Larry Yetto 13+JUN-1983 07:57:45 
Add WCBSL_JNL_RC 
v03-054 wMc0054 Wayne Cardoza 29-May-1983 
New protection end” spare fields in SLVDEF. 
v03-053 MLJ0113 Martin L. Jack 27-May-1983 
Add UAF$B_QUEPRI. 
v03-052 RLRDPATH Robert Rappaport 25-May-1983 
Create a new UCB extension { ual Ported Devices that 
resides after the ecrer lege’ ng extension and before 
t the pik wuts EXTENSION. ace in it UCBSL_DP_DDB and 
t UCBSL_DP_LINR. 
{ v03-051 LY0375 kerry ve 24-MAY-1983 15:44:29 
{ Add cluster write ior coed to UCB journal extention. 
t Also added status bits DIRENTER and CHKVAL in $RSBDEF. 
{ v03-050 KTA3052 aorber T. Altmann 24-May-1983 
t Updated SCSDEF for split up of Layers. 
{ v03-049 LY0366 18-MAY-1983 17:08:36 
{ kad UCB$V_JNL _UNMAST. Matte _JNL_RMBLK, UCBSL_JNL_ACBM, 
} and UCBS$L_JNL_LSEQNO 
{ v03-048 JLV0253 Jake VanNoy 18-MAY-1983 
{ Add symbols to $TASTDEF. 
t v03-047 MMD0151 Meg Dum 26-Apr-1983 9:06 
{ Add VCBSB_LBLCNT to the ORTAACP portion of VCBDEF 
{ v03-046 LY0356 21-APR-1983 08:16:48 
; Add UCBSL_JNL _FATLOF pea *OcBsi _JNL_FAILQBL 
{ V03-045 MSHO004 Maryann Hinden 14-Apr-1983 
{ Add SPNB$W_REFC. 
{ V03-044 JwH0208 sottrex W. Horn 12-Apr-1983 
Add SLV$B_PROT and SLVST_FACILTY to S$SLVDEF. 
v03-043 TCM0004 og #: Bptthens 12-Apr-1983 
Add UCBS$L _tockip” to SUCBDEF 
VO3-042 JWT0104 goque 29-Mar-1983 
Add UAFS$T _CLITABLES tf d to SUAFDEF. 
v03-041 JSVv0201 Joost Verhofstad 28-MAR-1983 
Add monitor counts in UCB for journals 
v03-040 ROWO171 Rolph 0. Weber 25-MAR-1983 
Extend UCBSL_DEVCHAR to a quadword, UCBSQ_DEVCHAR. 
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v03-039 
v03-038 
v03-037 


v03-036 


v03-035 


v03-034 
v03-033 
v03-032 
v03-031 


v03-030 


v03-028 


v03-027 


v03-026 
v03-025 


v03-024 
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Also create pynbot for second portion of the quadword, 
UCBSL_DEVCHAR2. 


$RB0072 Steve Beckhardt 25-Mar-1983 
Added some fields to SRSBDEF. 
MSHO003 ecyenn Hinde rate 
Delete SPNBSL _HEADE Set inition, add SPNBSC_HDRSIZ. 
sTJ 3075 Steven Jeffreys,25-Mar-1983 
= Add VCBSV_ERASE and VCBSV.NOHIGHWATER. 
MMD0108 Dum 11-Mar-1983 1 


2:32 
Add defs to Liver tor he handling of VOL1 pour id field 
and added VL2DEF to handle the VOL2 Label. 


MMD0106 befor A 10-Mar-1983 9:55 
Add fields in + or AVR. "AVL and the VOL2, HDR4 
additions to MTAA 


SRB0069 Steve Beckhardt 9-Mar-1983 
Removed SYSNAM status bit from S$RSBDEF. 
LY0316 Larry Yetto 07-mar-1983 
Add WCBSV_JDB field to WCBSB_JNL_STAT 
wMc0001 Wayne Cardoza 06-Mar-1983 
Add UAF$B_MAXDETAC 
JSV0161 Joost Verhofstad 28-F EB-1983 
Add VCBSL_JNLIOCNT 
RLRMXBCNT Robert L. Rappaport 24-Feb-1982 
Add UCBSL_MAXBCNT. 

V03-029 MSHO002 Maryann Hinden 24-Feb-1983 
Add SSPNBDEF . 
ROW0139 Ralph 0. 18-FEB 


Weber 
Move JNL_CLS and aN _SLV te UCBSW Beye 1 over ay sycase PDT 
with UCBSL_JNL_MCSID, Remove UCBSW_JNL_CHAR, UCBSL_JNL_CDT, 
UCBSL_SCSFC, and UCBSL_SCSBL journal UCe extension. 


RSHOO05S Scott Hanna 10-Feb-1983 
Added SRDIDEF which defines the rights database 
identifier block offsets. 


TCMO003 ie a | C. Matth 9-Feb-1983 
Added new VMB input lags to SRPBDEF : AUTOTEST and CRDTEST. 


SRB0065 Steve Beckhardt 21-Jan-1983 
Added new resource CLUSTRAN to SRSNDEF. 


DWT0067 David W. Thiel 20-Jan-1983 
Add $SPPBDEF. Add fields to $SBDEF. 
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v03-023 CdS0002 Christian D. Saether oF Pec 1982 
Move WCBSL_ACCLKID to avoid ambush by inexplicit assumptions. 
v03-022 $TJ3045 Steven T. Jeffreys 16-Dec-1982 
Add SSLVDEF macro definition. 
v03-021 SRB0057 teve Beckhardt 16-Dec-1981 
Added s new fields and reordered others oy SRSBOEF 
for distributed lock manager support. 
v03-020 CDS0001 Christian D. Saether 99-Dec-1982 
Add WCBSL_ACCLKID. 
v03-019 ACG0303 Andrew C. Goldstein, 9=-Dec-1982 15:13 
Add FILL attribute to extraneous names 
v03-018 N Kronenberg ie tg 
Rodity SSBDEF to "dd node name ware type and version, 
and DDB pointer. Add S$SBODEF bea aTSYSAPDE ° 
v03-017 MMD0001 pee ous 11-Nov-1982 14:42 
Add bit inMODE field of VCBDEF to allow users to 
enable EOT handling in the MTAACP. 
v03-016 TCM0002 Trudy C. Matthews 31-0ct-1982 
Add new field to Restart Parameter Block: RPBSL "BADPGS. 
v03-015 KTA0017 erbey T. Altmann 21-0ct-1982 
Add new fields to SCS ooh os block. 
v03-014 CWHO014 Hobbs 20-0c t-1982 
Add some warnings to SUSLDEF about strange constants 
v03-013 JSv0081 Joost Verhofstad 8-0c t-1982 
Add WCBSL_JNL_PUIC 
v03-012 SRBO00S4 Steve Beckhardt 6-0ct_1982 
Added new resource for SCS waits in RSNDEF. 
v03-011 JSVv0068 oost Verhofstad 22- “the tik 
Add some journaling sperttia WCB fields and change the fixed 


constants produced by conversion cous cAes from MDL, into 
computed constants for the WCB and V 


v03-010 ROWO122 Ralph 0. Weber 12-SEP-1982 
Work over i 4 UCB defini tion. cou Sts"t machined SDL into 
human senseable ret A A te a yenquere, 
Stasu bevst Yeasts S. pppare wird f ali afte 
“Abee ute up EVDEPND Rent to U BSL *DEVDEPEND 
and svecks "Stesa’ DEVDEPEND. 


v03-009 JSv0063 oost Verhofstad a hte 
Change names of symbols sonst existed in V3.0 end 
are used for journaling ond have § penged. This is 
to allow builds of jo ng facil 


urnal es on both 


9 


SY! 
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the latest system and V3.0 (for early field test) 


v03-008 MSH0001 Maryann Hinden 09-Sep-1982 

Add UAS definitions. 

v03-006 JSVv0031 Joost ververetes 27-Jul-1982 
Add some UCB and WCB fields for journaling 

v03-005 sSv0022 Joost Verhofstad 16-Jul-1982 
Include errorlog UCB fields in journai UCB 

v03-005 JSv0019 Joost Verhofstad 12-Jul-1982 
Add UCBSV_KNOWN_JNL 

v03-004 LY0027 Larry Yetto 29-Jun-1982 
Define UCBSL_JNL_NDL to be the same as UCBSL_JNL_ASID 

v03-003 Jsv008 Joost vespeteses 10-Jun-1982 
Add UCB, VCB and WCB fields for journals 

v03-002 KTAO100 Kerbey T. Altmann 07-Jun-1982 


Add field MEDIA_ID to UCB. 


KDM0078 Kathleen D. Morse 15-Mar-1982 
Add RPBSV_FINDMEM flag, for 11/782 installations. 


v03-001 
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module SRBMDEF; 
jes 
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/* RBM - realtime bit map of SPTs available for real time processes 


/e= 


oa 


end RBMDEF ; 
end_module SRBMDEF ; 


Starting VPN of bit map. 
Number of free SPTs. 
Size of control block. 
Type of control block. 
Spare byte. 

Length of block so far. 
Length of block so far. 
Start of bit map. 


SY! 


en 
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module SRDIDEF; 
/e++ 


/* Rights Datepene Identifier Sloss definitions: This structure congeine the 
/* RA Internal File Identifiers (IFI‘s) and soternes Stream Identifiers 

/* (I1S1*s) for the rights database. This structure is allocated from the 

s process allocation region pool. 


aggregate RDIDEF structure prefix RDIS$; 


#ISI_MAX = 10; 

constant ISI_MAX equals #ISI_MAX; /* Maximum number of concurrent record streams 
SIZE Longword unsigned; /* Size of allocated block 

IFI_READ Longword une tenes: /* Internal File Identifier for read operations 
IFI_WRITE longword unsigne /* Internal File Identifier for write operations 


d: 
ISI_VEC longword unsigned dimension O:M1SI_MAX; /* Internal Stream Identifier vector 
end RDIDEF; 
end_module SRDIDEF; 
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ed SROPDEF ; 
. REMOTE DEVICE PROTOCOL DEFINITIONS 


sggregate RDPDEF structure prefix RDPS$; 
OPCODE word pa cgness 
MOD word unsigned; 
REFID Longwor wet ed; 
Unit over AY union Till; 


/* 
RESPONSE FROM REMOTE PACKET DEFINITIONS 


constant 
. ““END'' 


LOG 
j equals -1 increment -1 prefix RDP tag $C; 
end RDPDEF; 


aggregate RDPDEF1 structure prefix RDP$; 
FILL_3 byte dimension 10 fill prefix RDPDEF tag $$; 
STATOS quadword unsigned; 


/t 
ie TERMINAL SPECIFIC PARAMETER DEFINITIONS 


/* READ/WRITE REQUEST 
end RDPDEF1; 


aggregate RDPDEF2 structure prefix RDP$; 
FILL_4 byte dimension 10 fill prefix RDPDEF tag $$; 
TT BUNT ongveré unsigned; 
TTCARCON_OVERLAY union fill; 
TT_CARCON Longword unsigned; 
TT TIMOUT ponguere unsigned; 
end TT_CARCON OVERLAY; 
TT_WDATA_OVERCAY union fill; 
TT_WDATA character; 
TT_TERM character; 


/* SET MODE/CHARACTERISTICS REQUEST 
end TT_WDOATA_OVERLAY; 
end RDPDEF2; 


H 
16-SEP-1984 16:45:44. $5 Page 13 


/*PARAME 


/*RESPONSE PACKET OPCODES 
/* ATTENTION 


/* 1/0 REQUEST COMPLETE 
/* ERROR LOG 


/*END PACKET 1/0 STATUS 


/*BYTE COUNT 


/*WRITE CARRIAGE CONTROL 
/*READ TIMEOUT 


/*WRITE DATA 
/*BYTE OF SIZE + TERMINATOR MASK 
/*WORD OF SIZE + PROMPT STRING 
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aggregate RD ROPDEF3 stru ont prefix RDPS$; 
=BYERLA eraens} on 8 if fill prefix RDPDEF tag $$; 
TT “ERA By 


Taos 5 uns sleds / 
TT- “Ast PR vane word unsigned; / 
it CHAR LAY; 

PEED lokavert unsigned; / 
_FILL_lLongword unsigned; / 
mee bY ,songuer’ unsigned; / 
xctAar ongword tune ened; / 
RD nave END PACKE 


core RDPDEF4 structure ore i.e 
byte diaeneion 10 fill pret tx Shae tag $$; 
pet 5A ones i patie RDPDEF tag $ /*1/0 STATUS 


TT_RBATA c /*WORD OF SIZE + READ DATA 
/* SERGE ANODE / CHARACTERISTICS END PACKET 
end RDPDEF4; 


ah ie RDPDEFS strug ture prefix RDP$; 
byte dimension 10 fill notte RDPDEF tag $$; 


a a gveawere fill prefix RDPDEF tag $$; /*1/G STATUS 
1 SCRA Quadword unsigned; /*SENSED CHARACTERISTICS 
YW “SCHAR2 Longword uns gned; /* Additional longword of characters 


/* Broadcast message attention packet 
end RDPDEF5; 


soerepete Ap RDPDEF6 eerus tury prefix RDP$; 
byte dimension 10 fill prefix RDPDEF tag $$; 
TT UbRbTD SIZE word unsigned: /* Total size of data 


TT_BROMSG word unsi non € 3 /* Message code 

TT_BROUNIT word uns /* Unit number 

TT_BRONAME cherecter™ atengen /* Device name as counted string 
constant TT_BR 


DNAME 16° pret RDP tag $C; /* Size of name field 
1 -BROTXTSIZE OVERLAY “unten ¢ 
TT_BROTXTSIZE word vs I bb /* Count for message text 
WT =BROTATSIZE arte structure fill; 
by te dimension 2 fill pretix RDPDEF tag $$; 
TT UbRDTe T character Length 0 tag T /* Message text start 


/* Out of band attention packet 
end TT_BRDTXTSIZE FIELDS; 
end TT_BRDTXTSIZE_OVERLAY; 
end RDPDEFE; 
ial (rent: RDPDEF7 structure prefix 

0 byte dimension 10 fill wae 9 RDPDEF tag $$; 
1 BOTBAN byte unsigned; /* Out of band character 
/* ATTENTION PACKET MODIFIERS 


constant 
TT_UNSOL /*UNSOLICITED DATA 
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° ANGU 
° TRLC 
° TRLY 
° TART 
° ROCS 

OUTBA 
j is 0 


end RDPDEF7; 
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increment 1 prefix RDP tag SC; 


end_module SRDPDEF ; 


/*HODEM HANGUP 
/*CONTROL/C 

/*CONTROL/Y 

/* Start a receive to the net 

/* grosses’ oessege for mailbox 
/* Out of band A 


en 
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module SRBF DEF ; 
/* Remote buffer as stored in dynamic memory 


aggregate RBFDEF structure prefix RBFS$; 
MSGDAT Longword unsigned; 

USRBFR Longword unsigned; 

SIZE word unsigned; 

TYPE byte unsigned; 

SPARE byte unsigned; 

DATSIZE word unsigned; 


/* End of header 


OPCODE word unsigned; 
MOD word —— ; 

REFID Longword unsigned; 
UNIT word unsigned; 


1Z2E,0,W 
constant HEADERLEN equals . prefix RBF$ tag K; 
constant HEADERLEN equals . prefix RBF$ tag C; 
PARAM] Longword unsigned; 
PARAM2 Longword unsigned; 
PARAMS Longword unsigned; 
PARAM4 Longword unsigned; 
PARAMS Longword unsigned; 
PARAM6 Longword unsigned; 


/* 
. RESPONSE FROM REMOTE PACKET DEFINITIONS 


/* 


constants. 
* "END" 
LOG 
§ equals -1 increment -1 prefix RBF tag $C; 
end RBFDEF; 
aggregate RBFDEF1 stru — prefix RBF$; 
FILL_3 byte dimension 24 fill prefix RBFDEF tag $$; 
STATOS quadword unsigned: 


e 
cS TERMINAL SPECIFIC PARAMETER DEFINITIONS 


/*DEV 
/*SIZE OF saat oP 


x 
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/* This structure must be identical to the abcve atructure except 
. for the header, which is the header for a buffered io buffer. 
/* 

. Buffered io buffer header 


* Address of message data 

* User buffer address 

Size of structure 

* Type of structure, DYNSC_BUFIO 
Alignment 

* Data size 


MODIFIERS 


ER 
SE ONLY? 


/*HEAD 


T 
/*PARAMET 
/*PARAMET 
/*PARAMET 
/*PARAMET 
/*PARAMET 


/*RESPONSE PACKET OPCODES 
/* ATTENTIO 


N 
/* 1/0 REQUEST COMPLETE 
/* ERROR LOG 


/*END PACKET 1/0 STATUS 


——_-— -———_ + -— 7} 
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/* READ/WRITE REQUEST 
end RBFDEF1; 


aggre eee nereete structure prefix 
FILL byte dimens on 54 
ongword unsigned; 
17 ~EARCON’O OVERLAY union fill: 
TT_CARCON penguere uns gned; 
TT_TIMOUT Ho og unsigned; 
end TT CARCON 
TT_WDATA BVERCAY. maton fill; 
TT_WDATA character; 
TT- ~TERR character; 


/* = MODE/ CHARACTERISTICS REQUEST 
WDATA_OVERLAY; 
end RBF DEF2; 


eggrepate RB RBFDEF3 mension 2 prefix RBFS$; 
byte dimension 24 fill prefix RBFDEF tag $$; 
TT “RAR VERLAY union fill; 
TTL fey sepeuere unsigned; 
TT_ASTPR “nie unsigned; 
end TT- CHAR O 


vt ~SFEED 5 tokeeard unsigned; 
FILL longword unsigned; 

i “PARITY  Lenguore unsigned; 

TT_CHAR2 Longword ene teres: 

READ Mh aead END PACKE 

_ RBF DEF 


sogrevete Re RBFDEFS structure pref ia ® 
byte dimension 24 fill pret my rg tag $$; 
FIUL poy eneere Te fill prefix RBFDEF tag $ 


/* Trae ANODE/ CHARACTERISTICS END PACKET 
end RBFDEF4; 


ah et RBFDEFS Rtsee bag A prefix RBF$ 
byte dimensi fill retix RBFDEF tag $$; 
FILL 2 quadword fill RFs. RBFDEF tag $$; 
TT USCHA Quadword unsigned; 
TT-SCHAR2 lLongword uns gned; 


/* eth message attention packet 
end RBFDEF5; 


aggregate RB mpreere S ctrugture pret i* RBF$; 
arse dimension fill prefix RBFDEF tag $$; 

TT LbRbTO SIZE word uns hs. 

TT-BRDMSG word unsigned; 

A T-BRDNAME word unsigned; 


RDONAME cperecter pe 
vats. 1 pret RBF tag $C; 
on 


aM ae t_TT_BRDNAM 
1T “BROTXTSIZE OVERLAY. un 
TT_BROTXTSIZE word ther Mes’. 


fill ee x RBFDEF tag $$; 
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/*BYTE COUNT 


/*WRITE CARRIAGE CONTROL 
/*READ TIMEOUT 


TA 
SIZE + TERMINATOR MASK 
SIZE + PROMPT STRING 


/*CHARACTER 
/*AST PARAM 
E 


I 
E 
/*LINE SPEED 
/*FILL SPECIFIER 
/*PARITY FLAGS 
/* Another longword of characters 


STICS 
TER 


/*1/0 STATUS 
/*WORD OF SIZE + READ DATA 


/*1/0 STATUS 
/*SENSED CHARACTERISTICS 
/* Another longword of characters 


/* Total size of data 
/t * eaneee code 
number 
/* Dev ce name a scpyntes string 
ze of name field 


/* Count for message text 


M 
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TT_BRDTXT ize rig DS structure fill; 
F by fe dimension 2 fill pretix RBF DEF tag $$; 
TT_BROTEXT character Length 0 tag T * Message text start 


/* Out of band attention packet 


end TT_BROTXTSIZE FIELDS; 
end 17 BROTXTSIZE OVERLAY; 
end RBFDEFE; 


aggregate f RBFDEF7 struc ure erst! 


RBFS$; 
0 byte dimension 2 prefix RBFDEF tag $$; 


TT LS OTBAN byte unsigned; /* Out of band character 
/* ATTENTION PACKET MODIFIERS 
constant ( 
TT_UNSOL /*UNSOLICITED DATA 
» TTZHANGUP /*ODEM HANGUP 
. TL C /*CONTROL/C 
- TTLCTRLY /*CONTROL/Y 
- TTUSTARTRCV /* Start a receive to the net 
- TT BROCST /* Broadcast pessege for mailbox 
TT_OUTBAND /* Out of band AST 


j equals 0 increment 1 prefix RBF tag $C; 
end RBFDEF7; 
end_module SRBFDEF; 
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geguve SRCTDEF; 


fa RCT - Replacement and Caching Table sector '0 Layo 


N 
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is a structure restates on disks reuintseg b 


ntai nee by tne str eettt ent 


/* speak Ne disk res ers. The ~ 1 is ma 

/* aera. ers and the disk class driver. The disk HS or iver mainly 
/* gets involved in RCT manipulations during host initiated bad 

/* lock replacement. 


aggregate RCTDEF ped pd prefix RCTS; 
V ++ omgexere MINS ate: $ 

FLAGS oe gee 
FLAGS word unsigned; 
FLAGS BITS structure fill; 


field mask; 
ietieta length 6 fill prefix RCTDEF 


SR SStete= 


sO 
FILL_3 word fit Sette RCTDEF tag $$; 
LBN Tongword unsigned; 
RBN longword unsigned; 
BAD_RBN enguers unsigned; 
WB otra Quadword poo 
WB-INCAR Lon ere uns 
INCART IME OVERLAY union “efit: 
a INC CARTIME. Nad te unsigned: 


‘s Structure of a Replacement Block Descriptor 
INCARTIME_BITSO structure fill; 
LBN bitfield mask Length 28; 
CODE bitfield mask length 4; 
end INCARTIME_BITSO; 
INCART INE B5T 


FILL 4 bi 

NONPR I ME 

ALLOCATED 
f 


te’ ture 


$1 

tfiel 

bitfield ma 

bi field 8 
tg: E » tfield mask; 

L bitfiel 
end TNCARTIME _BITS1; 
constant EMPTY ggvets 0 prefix RCT tag $ 
constant ALOCPRIM 
constant ALOCNONP 
constant UNUSABLE 
panesens Yee p 
equals 8° yon Pe RCT tag SK; 
end INCART INE WOVERLAYS 


S 
e 
f 
t 
f 
d 
T 


equals 


Length 8 ett prefix RCTDEF tag $$; /* 
e 


/* Una 
equals § prefix R Hi tag $K;/* Allocated replace 
prefix RCT tag $K;/* Allocated replace blk - ~ eed 
a : prefix RCT tag $K;/* Unusable replacement block 
refix RCT tag $K;/* Alternate unusable replacement block 


/* Volume serial number 
/* Flags word 
/* Write back caching in use 


~ae™n 
ow 


ee Error flag for block being replaced 
/* Replacenent caused by Bad RBN 

/* Replacement in Progress phase 2 
/* Replacement in Progress phase 1 


/* Reserved word 

/* LBN curently being replaced. 

/* RBN allocated to replace LBN 

/* If BR flag RBN of bad replocenedt block 

/* Serial | of last controller doing Write back 
/* Write back incarnation ! 


/* Date-time of last update of incarnation no. 


/* Space for LBN replaced ny this RBN 
/* Describes how this descriptor being used 


tin npt ies {Se cecatee, but not prime RBN 
/* This 


/* This REN ae 6 py 
/* This marks a NULL entry 


/* Values of CODE 
Llocated (empty) re tpcement block 
lk = pri ary RBN 
mary RBN 


/* Null entry - no corresponding RBN sector 
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end RCTDEF; 

end_module SRCTDEF; 

nodule SRDTDEF; 

. RDT = SCS RESPONSE DESCRIPTOR TABLE 


/* ONE RESPONSE DESCRIPTOR (RD) IS sw yg Nii Ay 


EACH SCS MESSAGE 
. SENT FOR WHICH THE SENDER EXPECTS A MATCHING RESPONSE. 


aggregate KDTDEF structure prefix RDT$ origin FILL_2; 
WAITFL Longword unsigned; /*RD WAIT QUEUE FWD LINK 
WAITBL Longword unsigned; /*RD WAIT QUEUE BACK LINK 
ZE word unsigned; /*STRUCTURE SIZE IN BYTES 
TYPE byte unsigned; /*SCS STURCTURE TYPE 
SUBTYP byte unsigned; /*SCS oral SUBTYPE FOR RDT 
FREERD longword unsigned; /*ADDR OF 1ST FREE RD 
MAXRDIDX Longword unsigned; /*MAXIMUM ! OF DESCRIPTORS 
1 Longvord fill prefix _RDTDEF tag $$; /*RESERVED FOR FUTURE USE 
constant ‘‘LENGTH'’ equals 24 prefix RDT tag $C; /*LENGTH OF NEG PORTION OF STRUCTURE 


/* 
FILL_2 byte fill prefix RDTDEF tag $$; 
end RDTDEF; 


end_module SRDTDEF; 


— 
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| module SRDDEF; 
is _RD = SCS RESPONSE DESCRIPTOR FORMAT 


eeerepete RDDEF structure reftix RDS; 
ERLAY union fill; 
CORP longvord unsigned: 


LINK pongeere unsigned; 
end EORP OVE 
STATE OVERLAY les fill; 
ATE word unsigned; 
STATE_BITS structure fill; 
Y bitfield; 


end STATE BITS; 
end STATE OVERLAY; 
SEQNUM word unsigned; 
constant "'LENGTH equals . prefix RD$ tag K 
constant "‘LENGTH’' equals . prefix RD$ tag C 


end RDDEF; 
end_module SRDDEF ; 


/*ADDR OF ASSOC CORP OR 
/* OR OTHER CONTEXT BLOCK 
/* OR LINK TO NEXT FREE RD 


/*RD STATE FLAGS 
/* ALLOCATED IF SET 
/* PERMANENTLY ALLOCATED RD IF SET 


ver tuctn ae — OF RD 
/*LENGT RD 
7SLENGTH OF RD 
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nodule SRPBDEF ; 
. RESTART PARAMETER BLOCK DEFINITIONS 


aggregate RPBDEF stru rook prefix RPBS; 


lLongword unsigned; /*PHYSICAL BASE ADDRESS OF 64K BLOCK 
RESTART Longword unsigned; /*POINTER TO RESTART ROUTINE (PHYSICAL) 
CHKSUM Longword unsigned; /*CHECKSUM OF BYTES O-7F OF RESTART ROUTINE 
RSTRTFLG Longword unsigned; /*RESTART IN PROGRESS FLAG 
HALTPC Longword unsigne /*PC AT_RESTART/HALT 
HALTPSL longword uns ned; /*PSL_AT RESTART/HALT 
HALTCODE Lon yore uns rte: /*CODE DESCRIBING RESTART REASON 
BOOTRO_ OVERLAY union f 
BOOTRO Longword uns stan /*SAVED BOOT PARAMETER RO 
BOOTRO_FIECDS. structure Stet: 
ROBEVTYP byte unsigned; /* DEVICE TYPE SUBFIELD 
4 rt 1 byte fill pretix RPBDEF tag $$; /* R 
tg ALF unsigned; /* UNIBUS INT VECTOR SUBFIELD 
nd BOOTR ELOS; 
ond BOOTRO,0 
ar elie fill; 
Teste unsigned /*SAVED BOOT PARAMETER R1 
gota BITe structure fill: 
NERUS bitfield Length i; /*NEXUS OF SYSTEM DEVICE ADAPTER 
ng oy ABUS ithteta Length 2; /*ABUS ADAPTER NUMBER OF SBIA 
end BOOTRI TOOVERLAY: 
BooTRS Longword unsigned: /*SAVED BOTT PARAMETER R 
BOOTR pers ied} shee /*SAVED BOOT PARAMETER R 
ongwo ord unsigne /*SAVED BOOT PARAMETER R4 
BOOTRS Soft LAY union eft: 
reser uns igned /*SAVED BOOT PARAMETER RS 
5 BITS structure Hilt; 
V bitfield; /* CONVERSATIONAL BOOTSTRAP 
DEBUG bitfield; /* KEEP DEBUGGER CODE 
INIBPT bitfield; /* INITIAL BREAKPOINT 
BBLOCK bitfield; /* TRANSFER TO BOOTBLOCK 
DIAG bitfield; /* BOOT DIAGNOSTIC FILE 
BOOBPT bitfield; /* BOOTSTRAP BREAKPOINT 
HEADER bitfield: /* USE START ADDRESS FROM IMAGE HEADER 
NOTEST bitfield; /* FLAG TO INHIBIT MEMORY TESTING - 
SOLICT bitfield; /* SOLICIT BOOT FILE NAME 
HALT bitfield; /* HALT BEFORE TRANSFER 
NOPFND bitfield; /* INHIBIT PFN DELETION 
MPM bitfield mask; /* MULT 1 “PROCESSOR B00T USE MA780 ONLY 
USEMPM bitfield mask; /* USE MA780 AS IF TW RE LOCAL MEMORY 
MEMTEST bitfield mask; /* USE STRICTER TEST TO VALIDATE MEMORY 
FINDMEM bitfield mask; /* FIND SUFFICIENT MEMORY TO BOOT (> TK) 
AUTOTEST bitfield ma mask: /* USED BY DIAGNOSTIC SUPERVISOR 
CRDTEST ‘ tfiel /* REMOVE PAGES WITH CRD ERRORS 
FILL_2 bitfield “Length 1 fit prefix RPBDEF 89,8 $$; 
TOPS¥s bitfield mask Length 4 /*SYSTEM DIRECTORY NUMBER 
end TRS _BITS; 
end BOOTRS_OVERLAY; 
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Longword a igned: 
d gned; 

1Z lLongword unsigned; 
NMAP quadword unsigned; 
PFNCNT Longword unsigned: 
SVASPT Longword unsigned; 
CSRPHY Longword unsigned; 
CSRVIR Longword unsigned; 
ADPPHY lLongword unsigned; 
ADPVIR Longword unsigned; 

UNIT word unsigned; 
DEVIYP byte un igned; 
SLAVE byte unsigned; 
FILE character length 40; 
CONFREG byte — a dimension 16; 
a bl gne 
BOOTND T OVERLAY: union STite 
OND T word unsigned; 

B00 1 ayes unsigned; 

end BOOTNDT 
Fao stra are byte unsigned; 


ield mask; 
end FLAGS; 
ISP Longword unsigned; 
PCBB longword un gned; 
SBR Longword unsigned; 
SCBB longword unsigned; 
SISR Longword une toned 
aL R longword une tenes 
on #iLl; 


DSC Bgnguore unsigned dimension 16; 
tructure 
PAGCNT b tt teld tong th 24; 


C 
end MEMDSC_OVERLAY; 
BUGCHK longword unsigned; 
WAIT byte unsigned d mension 4; 
BADPGS Lon —s wer ned; 
CTRLLTR byte unsigne 
constant LENST H equals . prefix RPB$ tag «3 
constant ‘LENGTH’ equals . prefix RPB$ tag C 
end RPBDEF ; 


end_module $RPBDEF ; 


F 
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19 VECTOR 

F BOOT FILE 
M 

S 


EOUS FLAG BITS 
K 1S NOT PRESENT 


INTERRUPT STACK POINTER 

ONTROL BLOCK BASE 

SE_REGISTE 

ONTROL BLOCK BASE 

WARE INTERRUPT SUMMARY REGISTER 

EM LENGTH REGISTER 

/*MEMORY DESCRIPT. - PAGCNT, TR, BASE PFN 


/* COUNT OF PAGES FOR THIS MEMORY 
MEMORY 


TR chtriet onate /* TR NUMBER FOR THIS 
4 a Ny N bittiel length 32; /* BASE PFN FOR THIS MEMORY 
en 
constant MEMS C12 equals 4 prefix RPB tag $C;/*NUMBER OF BYTES IN ONE MEM DESCRIPTOR 
onstant NMEMDSC equals prefix RPB tag $C:/*NUMBER OF MEMORY DESCRIPTORS IN RPB 


/*BUGCHECK Looe ADDRESSS FOR MP 9 
/*BUGCHECK LOOP CODE FOR MP SECONDAR 
/*NUMBER OF BAD PAGES FOUND _IN MEM SCAN 
pereeaTa are LETTER DESIGNATOR 

/*LENGTH OF RPB 

/*LENGTH OF RPB 


} 
ad 
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nodule SRSBDEF ; 
i. RSB = RESOURCE BLOCK 


/* RESOURCE BLOCKS REPRESENT RESOURCES FOR WHICH 
. EACH RESOURCE BLOCK MAY HAVE ONE OR MORE LOCK 


overesete Mt RSBDEF structure prefix RSS$; 
lLongword unsigned; 
4 ft ge Longword unsigned; 
SIZE word unsigned; 
TYPE byte unsigned; 
sal Bk uns Yoneds 
pyte = gned; 


COnODE arse signed; 

STATUS_O ERLAY union fill; 
STATUS word unsigned; 
STATUS pt. structure fill; 

DIREN bitfield mask; 
VALINVLD bitfield mask; 
end STATUS BI Se 

end STATUS OVERLAY 

GROFL Longword maleneds 

GRQBL longword unsigned; 

CVTQFL longword uns gned; 

CVTQBL longword unsigned; 

WIQFL Longword unsigned; 

WTQBL longword unsi aan 

VALBLK quadword uns 

quadword fill Oe eite RSBDEF tag $$; 

“lLongword unsigned; 

E Longword te 

REFCNT word unsigned; 


constant ' ENGTH™ see « prefix RSB$ tag K; 
constant "LENGTH’’ equals . tA RSB$ tag C; 


constant MAXLEN equals 31 00 tix RSB tag $K; 


end RSBDEF ; 
end_module SRSBDEF ; 


16- 
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THERE A& 


OCKS OU 
BLOCKS (LKB) E 


o- 


E LOCKS 
LKB) QUEU 


$B 


/* NT MODE 
7=CONVERSION GRANT MODE 
/*STATUS 


/* ENTERED IN DIR. DURING FAILOVER 
/* VALUE BLOCK INVALID 


/*GRANTED QUEUE FORWARD LINK 
/*GRANTED QUEUE BACKWARD LINK 
/*CONVERSION QUEUE FORWARD LINK 
/*CONVERSION QUEUE BACKWARD LINK 
/*WAIT QUEUE FORWARD LINK 
/*WAIT QUEUE BACKWARD LINK 

LUE BLOCK 
7 MORE VALUE BLOCK 
/*SYSTEM ID OF MASTER SYS. 
/*VALUE BLOCK SEQ. NUMBER 


VALU 
/*REQUE ST ae et “a 
/*ADDRESS OF PARENT RSB 
/*GROUP NUMBER 
/*ACCESS goes OF pervurce 
/*RESOURCE NAME LENGTH 
/*LEN NGTH OF FIXED PART OF RSB 
/ LENGTH OF pints gt! OF RSB 
/*START OF RESOURCE NAME 
/*MAXIMUM LENGTH OF RESOURCE NAME 


H 
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nodule SRSNDEF ; 
“ RESOURCE NAME DEFINITIONS 


/*0 ORIGIN IN INCREMENTS OF 1 


constant ( 

ASTWAIT /*WAIT FOR AST EVENT, CHANNEL INTERLOCK 

- MAILBOX /*MAILBOX SPAC 

» NPDYNMEM /*NON-PAGED DYNAMIC MEMORY 

- PGFILE /*PAGING FILE SPACE 

» PGDYNMEM /*°AGED DYNAMIC MEMORY 

- BRKTHRU /* TERMINAL BROADCAST 

- IACLOCK /*IMAGE ACTIVATION INTERLOCK 

» JQUOTA /*JOB POOLED QUOTA 

. KID /*LOCKIDS 

- SWPFILE /*SWAPPING FILE SPACE 

- MPLEMPTY /*MODIFIED PAGE LIST EMPTY 

. MPWBUSY /*MODIFIED PAGE WRITER BUSY 

. SCS /*SYSTEM COMMUNICATION 

» CLUSTRAN /*CLUSTER STATE TRANSITION 
MAX /*MAXIMUM RESOURCE NUMBER 

j equals 1 increment 1 prefix RSN tag $; 


end_module SRSNDEF ; 
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module SRUCBDEF; 
/+ 


/* This structure is created when a 


ee RUF service and is pointed to by TLSL_RUF. 


egoregete fu + et Baw tf fill prefix RUCBS; 
RUD shores ter lina 16; 

constant ID_LEN equals . prefix RUCBS$ tag K 

constant ID-LEN oguese 9 Thee RUCBS tag C: 

RUID_FIELDS structure f 


D longword unsigned; 
D longword unsigned; 
IELDS; 
RLAY; 
LAY union fill; 
RUS LF Lon wore unsigned; 

L FIELDS structure fill; 
STATE eyte. € unsigned; 


constan equals 1 prefix RUCB 
constant Pa NIT equals ¢ prefix RUCB 
constant PH1_FIN equals prefix RUCB 
constant PH2_INIT equals 4 prefix RUCB 
constant PH2 FIN equals 5 prefix RUCB 
constant CANTEL equals § prefix RUCB 
gonstens RESET equals prefix RUCB 
CTR a hg union wba 
Bits unsign 
Etat * TS structure fill; 
bitfield mask; 

eile bitfield mask; 

INHANDLER bitfield mask; 

oyare itfield mask 


end CTRL_BITS; 
end CTRL_OVE ERLAY: 
av etee word unsigned; 
end RU_CTRL_FIELDS; 
end RU_CTRC_OV 3 
HACTION Longword unsigned; 
HREASON longword unsigned; 
MARKPT Longword unsigned; 
RUH ~EXEC Longword unsigned; 
RUH_SUPV Longword unsigned; 
RUH_ USER soneeers une ened: 
SV_PCPSL qua wore unsigned; 
SV-R ongword unsigned; 
FREESP lLongword unsigned; 
AILIST Longword unsigned; 
BILIST ponguere uns toned: 
IMPURE Longuor¢ unsigned; 
AMODE byte unsigned; 
SV_AMODE byte unsigned; 


235 


ro ow jiret issues a 


/* 
/* 


tag $C;/* phase 
tag $C;/* cancel 
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po Internal control block for use by Recovery Unit services. 


128-bit id 

Length of the ID 

Length of the ID 

ny bl tise in 100ns. units 


cluster Pp of initiating process 


control longword 
RU get ee state 


$C;/* active 
$C;/* phase 1 commit started 
tag aei78 phase 


1 poems completed 
phase s¢ commit started 
commit completed 
in progress 


tag $C;/* reset to markpoint in progress 


/* 


control flags 


RUCB has nore pine dt 
socouery Unit it ere active 
por ng handl 

andler has specified synchronous RUs 


current operation change mode code 


handler action code 

handler invocation reason code (see SRUHRSNDEF) 

most recent markpoint & polue 

exec mode handler Listhead 

supervisor mode han tere Uisthead 

user mode handler Listhe 

saved user's PC and PSL re riginal CHMK 
saved vos adders ren RUF SCALL_HANDLERS 


tres hengter seit 
ptr to list o Ley see he in RU 
ist of at nls touched in RU 
ptr to impure s eters : area for ENDRU 
mode of caller of RUFSSTART 
saved access mode (R4) from RUFSCALL_HANDLERS 
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FILL_1 byte dimens 
constant’ LENGTAe 


constant "LENGTH" equals . prefix RUCBS tag C; 


end RUCBDEF ; 
end_module SRUCBDEF ; 


jon 2 fill pr 
equals . pref 


H 


ix 
R 
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2g tag $$; /* spare 
UCB$ tag K; /* Length of RUCB 
/* Length of RUCB 


end 


K 
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module SRUHDEF ; 
++ 


/ 

fe Recovery Veit Handler storage cell definitions 

aggregate RUHDEF structure fill prefix RUHS; 
LINK lLongword unsigned; /* Next cell address ptr 
ADDR longword unsigned: /* Routine addr 
PARAM Longword unsigned; /* Routine parameter 
constant SIZE equals . prefix RUH$ tag K; /* Size of cell 
constant SIZE equals . prefix RUKS$ tag C; /* Size of cell 


end RUHDEF ; 
end_module SRUHDEF ; 
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gotule SRVTDEF; 
. RVT = RELATIVE VOLUME TABLE 


/* A RELATIVE VOLUME MAPPING TABL LE 


IS_RE 
dh STRUCTURE THAT IS MOUNTED IN A SYSTEM. 


aggregate RVTDEF structure prefix RVTS$; 
CLKID Lon wore unsigned; 
REFC word unsigned; 
very word est ag 


constant MINSIZE 
end RVTDEF; 
end_module SRVTDEF; 


16-SEP=1984 16:45:44.4 Page 29 


QUIRED FOR EVERY MULTIVOLUME 


/* LOCK ID OF VOLUME SET LOCK. 
/* REFERENCE COUNT 

/* ACTIVITY COUNT/FLAG 

/* SIZE OF RVT IN BYT 

/* STRUCTURE TYPE OF RVT 

/* NUMBER OF VOLUMES IN SET 

/* STRUCTURE (VOLUME SET) NAME 
/* Volume set lock name. 

/* Blocking lock id. 

/* ACB for blocking ast 

/* LENGTH OF STANDARD RVT 

/* LENGTH OF STANDARD RVT 

/* ADDRESSES OF THE RESP eri Ray 
/* MINIMUM NUMBER OF ENTRIES T 0 eLocatE 
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gegute SSBDEF; 
a SB - SCS SYSTEM BLOCK 


M 
~SEP=1984 16:45:41, Page 
16 1984 16:45 i 30 


> THE SB HAS INFORMATION ABOUT KNOWN SYSTEMS IN A CPU CLUSTER. 


aggregate SBDEF structure prefix SB$; 
FLINK Longword unsigned; 

BLINK longword unsigned; 

SIZE word unsigned; 

TYPE byte unsigned; 

SUBTYP byte unsigned; 

PBFL longword unsigned; 

PBBL longword unsigned; 

PBCONNX longword unsigned; 


SYSTEMID byte unsigned dimension 6; 
FILL_1 word fill prefix SBDEF tag $$; 
MAXDG word unsigned; 

MAXMSG word unsigned; 

SWTYPE character Length 4; 

SWVERS character length 4; 

SWINCARN quadword unsigned; 

HWTYPE character Length 4; 

HWVERS byte unsigned dimension 12; 
NODENAME character length 16; 

DDB Longword unsigned; 


TIMEOUT word; 
ENBMSK byte unsigned dimension 2; 
CSB longword unsigned; 


constant “‘LENGTH’’ equals . prefix SB$ tag K; 
constant ‘LENGTH’ equals . prefix SB$ tag C; 


end SBDEF ; 
end_module S$SBDEF ; 


/*FWD LINK NEXT SB 
/*BACK +e PREVIOUS 
/*STRUCTURE SIZE BYT 
/*SCS STRUCTURE T 

/*SCS STRUCT SUBT 
/*LINK TO NEXT PA 
/*LINK TO PREVIOU 
/*ADDR OF NE 

/* A CONNECT 

/*SYSTEM ID 

/*RESERVED W 

/*MAXIMUM DA 

/*MAXIMUM ME 

/*SOFTWARE T 


O NEXT $ 

TO PREVIOUS SB 

SIZE IN BYTES 

URE TYPE 

SUBTYPE FOR SB 

XT PATH BLOCK 

EVIOUS PATH BLOCK 

XT PB TO USE FOR 

10N 

ORD 

TAGRAM SIZE 

MA SSAGE SIZE 

YPE, 1-4 CHAR 
/*SOFTWARE VERSION, 1-4 CHAR 
/*SOFTWARE INCARNATION # 
/*HW TYPE; 1-4 CHAR, BLANK FILL 
/tHW VERSION # 
/*SCS NODENAME, COUNTED ASCII STRING 
/*DDB LIST HEAD 
/*SCA PROCESS POLLER, WAITING TIME REMAINING 
/*SCA PROCESS POLLER, PROCESS ENABLE MASK 
/*LINK TO NEWEST CLUSTER SYSTEM BLOCK 
/*LENGTH OF SB 
7*LENGTH OF SB 


N 
SYSDEFQZ.S0L;1 16-SEP-1984 16:45:44.34 Page 31 


module SSBODEF ; 
Ms SBO = SCS CONFIG_SYS OUTPUT ARRAY FORMAT 


/* THE OUTPUT ARRAY RETURNED FROM CALL TO SCSSCONFIG_SYS. DATA IS MOSTLY COPIED FROM 
fv THE SYSTEM BLOCK (SB) BEING LOOKED UP. 


aggregate SBODEF structure prefix SB0$; 


TEMID byte uns gned dimension 6; /*SYSTEM 1D 
FILL.1 word fill prefix SBODEF tag $$; /*RESERVED WORD 
MAXDG word unsigned; /*MAXIMUM DG shi 
MAXMSG word unsigned; /*MAXIMUM MSG SIZE 
SWTYPE character Length 4; /*SW TYPE 1-4 CHAR, BLNK FILL 
SWVERS character soneye 4; /*SW VERSION, 1-4 CHAR, BLNK FILL 
SWINCARN quadword uns gned; /*SW INCARNATION # 
HWTYPE character Length 4; /*HW TYPE, 1-4 CHAR BLNK FILL 
HWVERS byte unsigned dimension 12; /*HW VERSION, 1-4 CHAR BLNK FILL 
NODENAME character length 16; /*NODE NAME, COUNTED ASCII STRING 
constant VC1 equals . prefix SBO$ tag C; /*START OF {2 BYTE SPECIFIER OF 
constant VC1 equals . prefix SBO$ tag K; /* 1ST VC (PATH BLK) TO SYSTEM 
RSTATION1 byte unsigned dimension 6; /*REMOTE STATION OF 1ST VC 
FILL_1 word fill prefix SBODEF tag $$; /*RESERVED WORD 
LPORT1 character length 4; /*LOCAL PORT NAME OF 1ST VC 
WXT_SYSID byte unsigned dimension 6; /*1D OF NEXT SYSTEM IN CONFIGURATION 
FILC_1 word fill prefix SBODEF tag $$; /*RESERVED WOR 
constant ‘LENGTH’ equals . prefix SBO$ tag kK; /*LENGTH OF SBO ARRAY 
constant ‘LENGTH’ equals . prefix SBO$ tag C; /*LENGTH OF SBO ARRAY 


end SBODEF ; 
end_module S$SBODEF ; 
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goeute SSCSDEF ; 
i. SCS MESSAGE DEFINITIONS 


/ 
/* THIS STRUCTURE DEFINES OFFSETS AND FIELDS WITHIN THE SCS PORTION OF 
/* A CLUSTER MESSAGE. FSETS ARE DEFINED RELATIVE TO THE START OF THE 
/* APPLICATION DATA OR SCS CONTROL MESSAGE DATA. THE FULL MESSAGE FORMAT 
/* CONSISTS OF A PORT DRIVER LAYER HEADER (SEE STRUCTURE PPD) FOLLOWED 
/* BY THE SCS HEADER LAYER FOLLOWED BY THE APPLICATION DATA OR SCS CONTROL 
/* MESSAGE DATA, 
/t- 
aggregate SCSDEF structure prefix SCS$ origin MIN_CR; 
PPD byte unsigned dimension 16; /*16 BYTES OF PPD HEADER 
"LENGTH" word unsigned; /*MESSAGE LENGTH (INCLUDES ALL 
/* BYTES FROM SCS$W Sand ON 
/* NOT INCLUDING SCS$W_LENGTHS 
/* (FIELD SHARED BY PPD) 
/*DEFINE LENGTHS OF SCS CONTROL MSGS: 
constant OVHD equals 14 prefix SCS tag $C; /* SCS LAYER OVERHEAD 
constant CON_REQL equals $6 prefix SCS tag $C; /* CONNECT_REQ LENGTH 
constant CON _RSPL equals 18 prefix SCS tag $C; /* CONNECT_RSP LENGTH 
constant ACCP_REQL equals 66 prefix SCS tag $C; /* ACCEPT_REQ LENGTH 
constant ACCP_RSPL equals 18 prefix SCS tag $C; /* ACCEPT_RSP LENGTH 
constant REJ_REQL equals 18 prefix SCS tag $C; /* REJECT"REQ LENGTH 
constant REJ_RSPL equals 14 prefix SCS tag $C; /* REJECT _RSP LENGTH 
constant DISC_REQL equals 18 prefix SCS tag $C; /* DISCONNECT_REQ LENGTH 
constant DISC _RSPL equals 14 prefix SCS tag $C; /* DISCONNECT_RSP LENGTH 
constant CR_REQL equals 18 prefix SCS tag $C; /* CREDIT _REQ "LENGTH 
constant CR_RSPL equals 14 prefix SCS tag $C; /* CREDIT_RSP LENGHT 
FILL_.1 word fill prefix SCSDEF tag $$; /*WORD RESERVED FOR PPD LAYER 
MTYPE word unsigned; /*SCS MESSAGE TYPE 
/*SCS MESSAGE TYPE CODES: 
/* 0 ORIGIN, INCREMENTS OF 1 
constant ( 
CON_REQ /* CONNECT_REQ 
- CON_RSP /* CONNECT _RSP 
. ACCP_REQ /* ACCEPT_REQ 
- ACCP_RSP /* ACCEPT_RSP 
, REJ_REQ /* REJECT_REQ 
» REJ_RSP /* REJECT RSP 
, DIST_REQ /* DISCONRECT_REQ 
- DISC_RSP /* DISCONNECT_RSP 
» CR_REQ /* CREDIT_REQ 
» CR_RSP /* CREDIT_RSP 
, APPL_MSG /* APPLICATION MESSAGE 
APPL_DG /* APPLICATION DATAGRAM 
j equals 0 increment 1 prefix SCS tag $C; 
CREDIT word unsigned; /*CREDIT BEING EXTENDED 
DST_CONID longword unsigned; /*DESTINATION (RECVING) CONNX ID 
SRC_CONID Longword uns igned; /*SOURCE (SENDING) CONNX 
constant APPL_BASE equa's . prefix SCS$ tag K; /*BASE OF APPLICTION MESSAGE DATA 
constant APPL_BASE equals . prefix SCS$ tag C; /*BASE OF APPLICTION MESSAGE DATA 
M'N_CR word unsigned; /*MINIMUM SEND CREDIT 


end; 
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STATUS word unsigned; 


DST_PROC character Length 16; 
SRC_PROC character Len 


end SCSDEF; 


NID longword unsigned; 
RSPID Longword unsigned; 
XCT_LEN Longword unsigned; 
SND_NAME vongword unsigned; 
SND_BOFF \isngword unsigned; 
REC_NAME Longword unsigned; 
REC_BOFF Longword unsigned; 
end SCSBEF1; 


end_module $SCSDEF; 


constant STNORMAL equals 1 prefix 
constant STNORMAL equals 1 prefix 
constant STNOMAT equals 10 prefi 
constant pita! equals 10 prefi 
constant STNORS equals 18 prefi 
constant STNORS equals 18 prefi 
constant STDISC equals prefti 
constant STDISC equals refi 
constant STINSFCR equals prefi 
constant STINSFCR equals prefi 
constant CON_BASE equals . prefix 
constant CON_BASE equals . prefix 


now 


ash 16; 
CON_DAT byte unsigned imension 16; 


oo rrrrnrere®w@ 
oo eoooeoo so ®Ow 


/* 
e DEFINITION OF THE REQUEST/SEND DATA OFFSETS 
+ 
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On 


On 


OROKROROKe+ e 


Se Se Ge Ge Ge Ge Ge Se 


aggregate SCSDEF1 structure prefix SCS$ origin SND_BOFF; 


STATUS/REASON 
DEFINE STATUS/REASON CODES: 
NORMAL, SUCCESS 


* 
* 

+ 

* 

; NO MATCHING LISTENER 
- NO RESOURCES 

: DISCONNECTED 

: INSUFF CREDIT 


/* LOCAL CONNECTION ID 
/* LOCAL RESPONSE ID 
/* TRANSACTION LENGTH 
/* SEND BUFFER NAME 

/* AND OFFSET 
/* RECEIVE BUFFER NAME 
/* AND OFFSET 
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module SSCSCMGDEF ; 
i SCSCMG = SCS CONNECTION MANAGEMENT MESSAGE FORMAT 


/* THIS PORTION OF A veniam cect MESSAGE IS SEEN BY A 
ioe SYSTEM APPLICATION 


aggregate SCSCMGDEF structure huss SCSCMG$; 
RECNAM ' 


character Length yeeeapEne PROCESS NAME 
SNONAR cherecter Length 1 /*SENDER PROCESS NAME 
SNDDAT byte unsigned dimension 16; /*SENDER CONNECT DATA 


end SCSCMGDEF ; 
end_module SSCSCMGDEF ; 
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nodule SSDIRDEF ; 
a SDIR = SCS DIRECTORY ENTRY 


/* THIS DATA STRUCTURE IS ALLOCATED FOR EACH LOCAL PROCESS THAT WANTS 
cS TO BE KNOWN TO SCS. 


aggregate SDIRDEF structure prefix SDIR$; 
FLINK Longword unsigned; 

BLINK Lenguere unsigned; 

SIZE word unsig I 
UBTYPE FOR SDIR 
: NAME 


Cc 
4 He 


yte unsigned dimension 16; 
PROCINF byte unsigned dimension 16; 
CONID longword unsigned; 

constant LENGTH'’ equals . prefix S 
constant “‘LENGTH’' equals . prefix § 


end SDIRDEF; 
end_module $SDIRDEF; 


PROCESS 
PROCESS INFO 


& 

< 

— 

oc 

om 

o 

@ 

is 

= | 

“ 

a 

| 

@ 

a 
SSS 
Menor 


ed 


f 
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module SSGNDEF; 


/+ 
oe SYSGEN PARAMETER DEFINITIONS 


end_module $SGNDEF ; 
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/* 
constant BALSETCNT equals $8 prefix SGN tag $C; /* NUMGER OF PROCESSES IN BALANCE SET 
constant DFWSCNT equals 8 prefix SGN tag t; /* DEFAULT WORKING SET COUNT 
constant DFWSQUOTA equals 1 prefix SGN tag $C; /* DEFAULT WORKING SET QUOTA 
constant GBLSECCNT equals 4 refix be tag $C; __/* GLOBAL 9 be COUNT 
constant MAXGPGCNT equals ¢ 024 prefix SGN tag $C;/* spent AGE COUNT (GPT SIZE) 
constant MAXPAGCNT equals 3 *52*4 prefix SGN fag $C;/* PHYSICAL MEMORY SIZE IN PAGES 
constant MAXPGFL equals 4096 prefix SGN tag C; /* DEFAULT MAXIMUM PAGING FILE 
constant MAXPSTCNT equals ; prefix SGN g $C; /* MAX NUMBER OF PST ENTRIES 
constant MAXVPGCNT equals 8*8* prefix SGN tag $C;/* MAX PROCESS VIRTUAL SIZE (PAGES) 
constant MAXWSCNT equals 1024 prefix SGN tag $C; /* MAX WORKING SET SIZE (PAGES) 
constant MINWSCNT equals 1 ecet x SGN tag $C;  /* MIN WORKING SET SIZE (PAGES) 
constant NPAGEDYN equals 52*512 prefix SGN tag $C;/* NON-PAGED DYNAMIC POOL SIZE 
constant NPROCS equals 64 prefix SGN tag $C; /* MAX NUMBER OF PROCESSES 
constant PAGEDYN quals a pretix S$ ag $C;/* PAGED DYNAMIC POOL SIZE IN BYTES 
constant PHYPAGCNT equals gt ies prefix SGN tag $C;/* ACTUAL PHYSICAL PAGE COUNT 
constant SYSDWSCNT equals 40 prefix SGN tag $C; DEFAULT SYSTEM WORKING SET COUNT 
constant SYSVECPGS equals 5 prefix SGN tag $C; /* NG. OF PAGES OF SYSTEM SERVICE VECTORS 
constant SYSWSCNT equals 96 prefix SGN tag $C; /* SYSTEM WORKING SET COUNT 
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poeute SSHBDEF ; 
. SHARED MEMORY CONTROL BLOCK DEFINITIONS 


/* 


meals Cian SHBDEF got eens prefix SHB$; 


TY signed; 
FLAGS OVERLAY union fill; 
FCAGS byte unsigned; 
FLAGS BITS structure fill; 
eG Cr i Pistols mask; 


end FLAGS 
end FLAGS tOVERLAY:* 
REFCNT Longword unsigned; 
BASGSPFN Longword unsigned; 
ays skeen ane Soneds 


FILL ° Vuore eittts prefix SHBDEF tag $$; 
POOLEND longword unsigned; 

ADP longword unsigned; 

constant ‘LENGTH’ equals . prefix SHB$ tag Kk 
constant ‘LENGTH’ equals . prefix SHB$ tag C 


end SHBDEF ; 
end_module SSHBDEF ; 


16-SEP-1984 16:45:49.9 Page 37 


/* The UETP for the MA780 depends on some of the following definitions, Please 
Aa Let someone in that group know if the definitions change substantially. 


NK TO NEXT SHB 

RTUAL ADDRESS OF DATAPAGE 
ZE OF SHB IN BYTES 
RUCTURE TYPE FOR SHB 


/*FLAGS 
/* MEMORY IS CONNECTED, USEABLE 


/*Ll 
/*vI 
/*$1 
/*$T 


/*COUNT OF REFERENCES TO MEMORY 
/*BASE PFN FOR GLOBAL SECTION PAGES 
/*NEXUS OF PORT 

/*PORT NUMBER 

/* UNU 


SE 
/*ADDRESS PAST LAST BYTE OF POOL 


/*LENGTH OF CONTROL BLOCK 
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nodule SSHDDEF ; 
Oe SHARED MEMORY DATAPAGE DEFINITIONS 


/* 


constant MAXPORTS 
/eeee START OF CONSTANT FIELDS: 


aggregate SHDDEF structure prefix SHD$; 
XPTR Longword unsigned; 
GSDPTR Longword unsigned; 
CEFPTR Longword unsigned; 
GSBITMAP Longword unsigned; 
GSPAGCNT longword eee 
GSPFN Longword os : 
GSDMAX word unsigned; 
MBXMAX word unsigned; 
CEFMAX word unsigned; 
FILL_1 word fill prefix SHDDEF tag $$; 
NAME character Lengt : 
constant NAMLENGTH equals 16 prefix SHD tag 
TIME quadword uns gned: 
OF CONSTAN S. 


=< 

g 

— 

im 

< 

° 

oe 

a 

we 

~~ 

eo nn 

| te 

@ 

a 

a 

—_ 

3 

mp 

J 

w 

—_. 

° 

P| 
a ee 
Con 
Settee 


ed; 

ure fill; 
eld mask; 
field mask; 
l 

l 


POLL word unsigned; 
RESWAIT word unsigred dimension 16; 


H 
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equals 16 prefix SHD tag $C; 


/* The UETP for the MA780 depends on some of the following definitions, Please 
a Let someone in that group know if the definitions change substantially. 


/*MAXIMUM NUMBER PORTS HANDLED BY THIS 
/*DATA STRUCTURE 


/*RELATIVE POINTER TO MAILBOX TABLE 
/*RELATIVE POINTER TO GSD TABLE 
/*RELATIVE POINTER TO CEF TABLE 
/*RELATIVE POINTER TO BITMAP 

*CNT OF PAGES ALLOTTED FOR GBL SECTIONS 
/*RELATIVE PEN OF 1ST _GBL SECTION PAGE 
/*MAX CSO*S (SIZE OF TABLE) 

/*MAX MAILBOXES (SIZE OF TABLE) 

/*MAX CEF CLUSTERS (SIZE OF TABLE) 
/*UNUSED 

/*NAME OF MEMORY (COUNTED STRING) 
/*MAXIMUM LENGTH OF NAME OF MEMORY 
/*INITIALIZATION TIME 
/*CRC OF CONSTANT FIELDS 
/*COUNT OF GSD'S CREATED (ONE/PORT) 
/*COUNT OF MAILBOXES CREATED (ONE/PORT) 
/*COUNT OF CLUSTERS CREATED (ONE/PORT) 
/*NUMBER OF PORTS 

*OWNER OF INIT LOCK 


/*0W 0 

/*OWNER OF GS BITMAP LOCK 

/*FLAGS FOR LOCKING DATA STRUCTURES 

/*COMMON DATA PAGE BEING INITIALIZED 
NG MOD 


/*BITMAP BEI IFIED 

/*GLOBAL SECTION DSC TABLE BEING SEARCHED 
/*MAILBOX TABLE BEING SEARCHED 

/*COMMON EVENT FLAG TABLE BEING SEARCHED 
/*OWNER OF GSD TABLE LOCK 

/*OWNER OF MBX TABLE LOCK 

/*OWNER OF CEF TABLE LOCK 

/*UNUSED 

*PORTS WAITING FOR INTER-PROCESSOR REQUEST BLOCKS 
/* (ONE BIT/PORT) 

/*PORTS ACTIVELY USING THE MEMORY 

/* (ONE BIT/PORT) 

/*PORTS WAITING FOR A RESOURCE 

/* (ONE BIT/PORT, ONE MASK/RESOURCE) 
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RESAVAIL word unsigned dimension 16; /*PORTS erecine. TO REPORT RESOURCE AVAILABLE 
/* (ONE BIT/PORT, ONE MASK/RESOURCE) 

RESSUM word unsigned; /*PORTS WITH RE SOURCES TO REPORT 
/* (ONE BIT/PORT 

cfu -} word fill eretix SHDDEF ‘ta oof /*UNUSED 

FIL — mere fill prefix SHDDE ie Bes /*UNUSED 

/teee art pong plone FIELDS MUST BE UADWORD ALIGNED: 

PRQ qutearé uns i /*FREE INTER=PROCESSOR REQUEST BLOCK LISTHEAD 

POOL quadword uns qne ed; /*FREE POOL BLOCK LISTHEAD 

PRQWRK quadword unsigned dimension 16; /* INTER=PROCESSOR REQUEST WORK QUEUE LISTHEADS 
/* (ONE LISTHEAD/PORT) 

constant ‘LENGTH’ equals . prefix SHD$ tag K /*LENGTH OF DATAPAGE 

constant LENGTH’ equals . prefix SHD$ tag C: /*LENGTH OF DATAPAG 


end SHDDEF ; 
end_module SSHDDEF ; 
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gogule SSHLDEF; end 
cs SHL = SHAREABLE IMAGE LIST 


/* THIS LIST IS CREATED IN THE IMAGE FIXUP SE Hb ay 


¢ HE LINKER AND 
ae USED BY THE IMAGE ACTIVATOR FOR DOING SHAREABL E FI 


T 
AGE FIXUPS. 


aggregate SHLDEF structure prefix SHLS$; 
” BASEV f 


A longword unsigned; /* Base address of this shareable image 
SHLPTR Longword unsigned; /* Pointer from SHL in shareable jnege 
i /* to associated SKL in executable image 

IDENT’’ Longword unsigned; /* GSMATCH 

PERMCTX longword unsigned; /* cyracnent sharable image context 
SHL_SIZE byte unsigned; /* Size of SHL elements 

FILC_1 byte fill prefix SHLDEF tag $$; /* Spare for extensions 

FILL_2 word fill prefix SHLDEF tag $$; /* Spare for extensions 

FILL.5 Longword fill prefix or tag $$; /* Spare for extensions 

constant OLD SHL_ SIZE equal prefix SHL tag $C; /* Size of ‘'old’’ SHL 

L tag $C; /* Maximum Length of image name 


constant MAXNAML ' eqvers 9 prefix SH 

IMGNAM_OVERLAY union fill; 
I character length 40; /* Shareable image name (ASCIC string) 
constant "LENGTH'' equals . prefix SHL$ tag K; /* Length of shareable image List element 
constant “‘LENGTH' a - prefix SHL$ tag C; /* Length of shareable image List element 
NAMLNG byte unsigned; /* Synonym for name count 

end IMG OVERLAY; 


end SHLDEF; —~ 
end_module SSHLDEF ; 


K 
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module SSLVDEF; 


/* Define symbolic oseeets for System Loadable Vectors. These syabots 
/* are used by the various pieces of the loadable EXEC, notably SCSVEC, 
/* to create a List of vectors in system space and a corresponding image 
- that will be loaded into pool and connected to the system vectors. 


/ 

/* 

aggregate SLV structure prefix SLVS$; 
CODESIZE Longword unsigned; /* Loadable ipege size (in bytes) 
INITRIN aneers unsigned; /* Offset to init. routine 
SIZE word unsigned; /* Same as SLVSL CODES LEE 
TYPE byte unsigned; /* Structure type (DYNSC_LOADCODE) 
SUBTYP byte unsigned; /* Sturcture Subtype 
PROT_R byte unsigned; /* writeable protection for image 
PROT W byte unsigned; /* he ag} protection for image 
SPARE word unsigned; /* spare field for future use 
SYSVECS address; /* address of vectors in SYS.EXE 


FACILITY character Length 16; /* facility name (.ASCIC) 

LIST character Length 646; /* Start of vector List (MAXVEC®S) 
canssene “LENGTH equals .; /* SLVSK_LENGTH 
n ; 


/* Define vector tyee codes. The codes LODUMMY and HIDUMMY are 

/* used as placeholders, to make the definition of the upper and 

/* lower bound vector type symbols automatic. New vector t mM codes 
/* should be added at the end of the List, but before HIDUMMY. 


/t 
/* 
constant (LODUMMY, /* 
LDATA, /* Longword pointer to data 
UMP, /* pe tenes jump 
UJUMP, /* Unaligned jump 
SDATA, /* Specified data 
$ . /* Specified jump 
HIDUMMY /* 


) 
equals 0 increment 1 prefix SLV tag SK; 
constant MINTYPE equals SLVSK_LODUMMY+1 prefix SLV tag $K; /* Lower bound of vector type codes 


constant MAXTYPE equals SLVSK_HIDUMMY-1 prefix SLV tag $K; /* Upper bount of vector type codes 
constant MAXVEC equals 128 prefix SLV tag SK; /* Max. # of vectors in List. 


end_module $SLVDEF; 
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42 
module SSMBDEF ; /* Symbiont interface definitions 
/x+ 
C Symbolic definitions for the symbiont to job controller interface. 
/* Public definitions of any types, item codes, and 
/* other constants utilied by the symbiont to job controller 
: interface facility. 
/t- 
/* 
/* Structure level 
/* 
constant SMBMSGSK_STRUCTURE_LEVEL equals 1; /* Current structure level 
constant SMBMSGSK_STRUCTURE_LEVEL_1 equals 1; /* Structure level 1 
/* 
/* Request header 
/* 
aggregate REQUEST_HEADER structure prefix SMBMSG$; 
REQUEST_CODE word unsigned; /* Request code 
constant ( /* bof ing y yest codes 
PAUSE_TASK, /* = STOP 
RESET STREAM, /* = STOP /QUEVE /RESET 
UME_TASK, /* = START /QUEUE (when paused) 
START_STREAM, /* = START /QUEVE (when stopped) 
START_TASK, /e = task oversee 
STOP_STREAM, /* = STOP /QUEUVE /NEXT 
STOP_TASK, /* = STOP /QUEUE /ABORT or /REQUEUE 
TASK_COMPLETE, /* = stream is idle 
TASK_STATUS, /t - ge yocoroneus status update 
MAX _REQUEST_ CODE /* MUST BE LAST 
) equalS 1 increment 1; 
ones LEVEL byte unsigned; /* Message structure level 
STREAM_ INDEX byte unsigned; /* Stream index 
end; 
/t 
/t Item header 
/t 
oer tHE Re SIE ITEM_HEADER structure prefix SMBMSG$; 
IZE word unsigned; /* Item size 
ITEM, CODE word unsigned; /* Item code 
constant ( /* Define item cod 


es 
ACCOUNT NA DATA, /* = accounting information 


NAPE, /* = account name 


SYS 
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AFTER 
A TeKmeat Ce acEs. 
BOTTOM_MARGIN 

CHA ARACTERISTICS, 
CHECKPOINT DATA 
CONDITION VECTOR, 
DEVI CEN ARE 

R RUMBER: 
CUTOR_QUEUE, 

E. COPIES. 
€-SETUP. MODULES, 
ST PAGE, 

n CENGTH, 


“NAME 
M~SETUP_MODULES, 
M_WIDTH; 


Vv 
T 
E 
L 
L 
L 
R 
R 
R 
R 
R 
LE IDENTIFICATION, 


Se Ds De De Be i Be i ee lk 


E 
N 
xX 
] 
I 
I 
I 
0 
0 
0 
0 
| 
I 


JOB 
JOB cneSet _MODULES, 
LAST_P 


LEFT “RARE 
LIGRRRY SPECLEICATION, 


XI 
MESSAGE “VECTOR, 


NOTE, 
PAGE SETUP MODULES, 
PARAMETER_ 


T 

PARAME Ri 
TER 

R74 

TER_5 


ses 8@ 8&8 @ 


ze 
+4 
a 
m 
. 
— 


R 
REQUEST zRESPONS sé, 
RIGHT _MARGI 
SEARCR STRING, 
ARATION_ CONTROL, 
ITION 


0 . 
TIME-QUEUED, 
TOP_MARGIN, 


VIC 
USER_NAME , 
MAX_ITEM_CODE 


M 
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—— 


bitin volue 

kpoint information 

k error messages 

N value 

evice status 

ob entry number 

his output cues 

/COPIES vojue 

fy(ose file goPy te 
file setup modu t 
first page to print 

lines per page 

name of physical form 

form setup module List 

colyans per Line 

my iee see — and did 

/JOB_ COUNT value 

current . copy number 

/NAME v 

ob reset “eodule list 
ast page to print 

leading blank columns 

library neme 

maximum supported symbiont 

error a4 po to print 

/NOTE v 

page estup > nodule List 

user parameter 1 

user parameter 

user parameter 

user parameter 4 

user parameter 5 

user parameter 

user parameter 

user pereneter » 

print ng. control 

queue priority 

generic queue name 

reason task refused 

/BACKWARD, /FORWARD values 

request control 

request code “Dein responded to 

srett ng blank columns 
/SEARCH value 

separation control 

reason for print abort 

time queued 

leading blank Lines 

UIC of submittor 

username 


A 
A 
r 
C 
h 
a 
0 


ee - OPO NPS 


® 
/* MUST BE LAST 


SYS 


end 
end 
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) equals 1 increment 1; 
end; 


* 


/ 
. ACCOUNTING_DATA item 


aggregate ACCOUNTING_DATA structure prefix SMBMSGS$; 
PAGES_PRINTED Longword unsigned; 
ongword unsigned; 
Longword unsigned; 
longword unsigned; 


as account ing_ data = .; 
end; 


/ 
- CHECKPOINT_DATA item 
* 


enerepste CHECKPOINT_DATA structure prefix SMBMSGS$; 


yte unsigned; 
CHECKPOINT_LEVEL byte unsigned; 
OF FSET 


word unsigned; 


CARCON lLongword unsigned; 

PAGE Longword unsigned; 

RECORD NUMBER on eet f unsigned; 
USER_KEY quadword; 


as shochdoiat data = .; 
end; 


/ 
oe DEVICE_STATUS item 


aggregate oevics STATUS structure prefix SMBMSGS$; 


DEVICE FLAGS structure oere unsigned; 
L bitfield mask; 
PAUSE_ TASK bitfield oa ; 
REMOTE bitfield mask; 
SERVER bitfield mask; 
STALLED bitfield mask; 
STOP_STREAM bitfield mask; 
TERMINAL bitfield mask; 
UNAVAILABLE bitfield mask; 
hn bitfield Length 32-* fill; 


/* 
/* 


N 
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Pages printed 
Lines printed 


File 


reads 


Processor time 


Reserved 

Checkpoint structure level 
Offset into record 
Carriage control 

Page number 

Record number 

User positioning key 


Device flags 


- supports lowercase 

oye evens initiated pause 

device is remote 

server syrerent 

task stalled 

symbiont requesting stop stream 
device is a termina 

device unavailable 

orce longword 


a 
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/* 
- PRINT_CONTROL item 


aggregate He CONTROL structure prefix SMBMSGS$; 


end; 


structure rgngwore unsigned; /* Print flags 
DOUBL E_SPAC bitfield /* = double space 
PAGE HEADER bittietd aeekl /* = print page he headers 
PAG! boty bitfield mask; /* = insert < 
bitfield mask; /* = binary print. file 
SEQUENCED bitfield mask; /* = print sequence numbers 
SHEET FEED bitfield mask; /* = pause at every TOF 
TRUNCATE bitfield ae ki /* = truncate on overflow 
WRAP bitfield m /* = wrap on overflow 
P FILLER bitfield poo 32-* fill; /* = force longword 
end; 
end; 
/* 
. REQUEST_CONTROL item 
aggregate f REQUEST structure rhb SMBMSG$; 
T_FLAGS structure arqvore unsigned; /* Print lags 
CI GNMENT MASK bitfield mask; /* = print A's and 9's 
PAUSE _COMPLETE Dit tieta mask; /* = pause when request complete 
RESTARTING bitfield eask; /* = job is restarting 
P_OF _FILE bitfield mask * = rewind before resume 
4 ILCER bitfield length 32-* fill; /* = force lLongword 
end; 
end; 
/* 
S SEPARATION_CONTROL item 
® 
aggregate SEPARATION_CONTROL structure prefix SMBMSG$; 
SEPARATION FLAGS” structure longword unsigned; /* Print flags 
FILE OBORST bitfield mask; /* = print file urst page 
FILE-FLAG bitfield mask; /* - print file nag pe 
FILE_TRAILER bitfield mask; /« - print file tra ibe pege 
FILE-TRAILER_ABORT bitfield mask; /* = print file trailer page 
JOB_FLAG bitfield mask; /* = print ob flag page 
JOB_BURST bitfield mask; /* = print burst page 
JOB_RESET bitfield mask; /t - execute. . reset sequence 
JOB_RESET_ABORT bitfield mask; /t = execut reper sequence 
JOB" TRAILER bitfield mask; /t = print tre ler page 
JOB“ TRAILER_ABORT bitfield mask; - print ob trailer page 
FILCER bitfield length 32-* fill; /* = force longword 
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end_module SSMBDEF ; 
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nodule SSPNBDEF ; 
an SPNB = SCA POLLER NAME BLOCK 


/* THIS DATA STRUCTURE CONTAINS A 


LIST OF PROCESS NAMES WHICH WILL 
o BE SEARCHED FOR ON THE GIVEN REMO 


ST 
TE NODE. 


aggregate SPNBDEF structure prefix SPNB$; 
oor PP INE , 


Longword unsigned; /*FWO LINK 
BLINK Longword unsigned; /*BCK LINK 
SIZE word unsigned; /*STRUCTURE SIZE IN BYTES 
TYPE byte unsigned; /*SCS STRUCTURE TYP 
SUBTYP byte unsigned; /*SCS STRUCTURE SUBTYPE FOR SPNB 
$B pongwerd unsigned; /*SYSTEM BLOCK OF REMOTE NOTE 
ROUTINE Longword unsigned; /*ADDRESS OF ROUTINE TO BE CALLED WHEN PROCESS 
INDEX byte unsigned; /*INDEX INTO PROCESS LIST OF NEXT PROCESS TO S 
REFC word unsigned; /*NUMBER OF REFERENCES TO SPNB 
FREE byte unsigned dimension 1; /*FREE BYTE 
constant ‘‘HDRSIZ" equate . prefix SPNBS tag C; /*SIZE OF HEADER 
NAMLST byte unsigned; /*START OF VARIABLE LENGT 

/*LIST IS ZERO TERMINATED 


end SPNBDEF ; 
end_module $SPNBDEF ; 


47 


EA 


F OUND 
RCH FOR 


H LIST OF ADDRESSES OF PROCESS NAMES 


end 
end 
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module SSPPBDEF; 
/e+ 


A TO THE SCA DIRECTORY POLLER. 


CTX ears unsigned; 
BIT word unsigned; 
UNUSED_1 word uns 


end SPPBDEF; 
end_module $SPPBDEF ; 
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a SPPB = SCA POLLER PROCESS BLOCK 
/* THIS DATA STRUCTURE DESCRIBES A PROCESS NAME KNOWN 


~S SSS 


igned fill; 
constant ‘‘LENGTH'’ equals . prefix SPPB$ tag K; 
constant “‘LENGTH’’ equals . prefix SPPB$ tag C; 


end 
agg 


end 
agg 
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module SSTATEDEF; 


{+ 
yr SCHEDULING STATES 


constant ( 


eee eee se eens 
= 
wo 


~s 


end_module SSTATEDEF; 


equals 1 increment 1 prefix SCH tag $C; 


F 
16-SEP-1984 16:45:441.98 Page 49 


/* DEFINITIONS START AT 1 
veauten he PAGE WAIT 


/*MUTEX AND MISCELLANEOUS RESOURCE WAIT 
/*COMMON avert FLAG T STATE 
/*PAGE FAULT WAIT 
/*LOCAL EVENT FLAG WAIT 
/*LOCAL y NT FLAG WAIT OUT OF BALANCE SET 
venistnea TE WAIT 

HIBERNATE WAIT OUT OF BALANCE SET 
7 *SUSPENDED 
/*SUSPENDED OUT OF THE BALANCE SET 
/*FREEPAGE WAIT 
/*COMPUTE, IN BALANCE SET STATE 
/*COMPUTE, OUT OF BALANCE SET STATE 
/*CURRENT PROCESS STATE 


SYS 
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module SSYSAPDEF ; 


/+ 
oo SYSAP = FLAGS USED IN THE SYSAP=SCS INTERFACE 


/*OPTIONS FOR DISPOSING OF 

/* SENT DATAGRAM: 

/* Q ORIGIN, INCR OF 1: 
constens 


P /* DISPOSE ON DG FREE QUEUE 
« DISPRET /* DISPOSE BY RETURN TO SYSAP 
DISPPO /* DISPOSE BY RETURN TO POOL 
§ equals 0 increment 1 prefix SYSAP tag $C; 
/*FLAGS SPECIFYING TYPE OF DG 
/* REC'D FROM REMOTE SYSAP: 
/* 0 ORIGIN, INCR OF 1: 
constant ( 
DGREC /* DG REC'D FROM REMOTE 
DGSNT /* DG SENT 


j equals 0 increment 1 prefix SYSAP tag $C; 
end_module SSYSAPDEF ; 


H 
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aaa STASTDEF ; 


/* TERMINAL AST PACKET. THI 


S$ STRU 
po DELIVER OUT OF BAND CHARAC 


STRUCTU ee IS USED BY TERMINAL SERVICES TO 
TER ASTS. 


soargyese *e TASTDEF structure prefix TASTS; 


Longword dimension fill prefix TASTDEF tag $$; paudne tine ACB REGION 
FLINR Longword unsigned; /+f0 
AST Longword unsigned; /*SAVED AS ADDR ESS 
ASTPRM Longword unsigned; Vetaves & AST PARAMETER 
PID lLongword unsigned; /*SAVED PID 
RMOD byte unsigned; /*SAVED RMOD 
CTRL_OVERLAY union fill; 
CTRL byte unsigned; /*CONTROL FIELD 
CTRL_B rs gerue ure fill; 
MASK bistiete me mask; /*DISABLE ore pFROCESSING 
INCLODE bitt eld mask popes yes CTER 
ONE SHOT bitfield mask; /*ONE SHO 1 AS fA 
Bus? Bittietd mask; /*BLOCK eusy 
Los bitfield mask; /*AST LOST 
ABORT bitfield mask; /*ABORT 1/0 
end CTRL_BITS; 
end CTRL_OVERLAY; 
CHAN word unsigned; /* CHANNEL 
"MASK" Longwor unsigned; /*QUT OF BAND MASK 


constant '‘LENGTH’’ equals . prefix TASTS tag K; 
constant "‘LENGTH"' causis - prefix TASTS tag C; 


Stats pitt structure; 


bitfield length 14; a cires } te and spares 
bitfield mask; 29 
INC bitfield mask: is TACLUDE flag 
end STATUS_BITS; 


end TASTDEF; 
end_module STASTDEF; 
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goguie STQEDEF; 
. TQE = TIME QUEUE ENTRY 
/* TIME QUEUE ENTRIES ARE UTIL zee TO SET TIMERS, WAKE UP PROCESSES, AND 


/* 
/* 


FOR INTERNAL SYSTEM SUBROUTINES. 


aggregate TQEDEF structure prefix TQE$; 


FR4 Lon 
end ASTPRR” VERL 
TIME quadword _ gned: 
peu tA qQuadword uns gned; 


FL Longword unsigned; 
i Fs pt unsigned; 
word unsigned; 
size byte unsigned; 
RQTYPE TOVERLAY union fill; 
RQTYPE byte unsigned; 
ROTYPE 6 15. tructure fill; 


tfield Length: 2 fill prefix TQEDEF 


Fl 

ALBERT bittield d mas 

eeLy UTE bitfield mask; 
YPE BITS; 


end R 
end RaTyPE TOVERCAY 
PID_O “Pip ERLAY union "eat Ll; 


Longword unsigned; 
FPC lon were unsigned: 
end PID_ OVERLAY 
T_OVERLAY union fill; 
“AST Longword unsigned: 
ie eee oe lLongword unsigned; 


LAY; 
ASTPRA OVERLAY union fill; 


STPRM longword yns igned: 
word Dea 


ae = iy he oy 
FILL I word sits prefix. TQEDEF tag $$; 


RQPIB longword uns ign 


constant “LENGTH equals - prefix TQE$ tag K 
constant "LENGTH" equals . prefix TQE$ tag C: 


/t 
- TIME QUEVE ENTRY REQUEST TYPE DEFINITIONS 
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/*TIME QUEUE FORWARD LINK 
/*TIME QUEUE we | | LINK 
/*SIZE OF TQE IN S 
/*STRUCTURE TYPE FOR TQE 


/*TIME QUEUE ENTRY TYPE 


tag $$;/* STARTING OFFSET 
REPEAT REQUEST (1=YES) 
te Absolute expiration time specified 


/*TIMER OR WAKE REQUEST PROCESS ID 
/*TIMER SUBROUTINE ADDRESS 
/*ADDRESS OF AST ROUTINE 

/*TIMER SUBROUTINE SAVED R3 


/*AST PARAMETER 

/*TIMER SUBROUTINE SAVED R4 

/*ABSOLUTE EXPIRATION TIME 
TA REPE 


A E 
/*ACCESS MODE OF REQUEST 
/*EVENT thes NUMBER AND EVENT GROUP 


SPARE 
/*REQUESTER PROCESS ID 
/*LENGTH OF STANDARD TQE 
/*LENGTH OF STANDARD TQE 


constant TMSNGL equals 0 ecer*s TQE tag $ /*TIMER ENTRY SINGLE SHOT REQUEST 

constant SSREPT equals " ESM_REPEAT seret TQE mu es $C; cue TEM SUBROUTINE REPEAT REQUEST 
constant SSSNGL equals pret fix TQE t TEM SUBROUTINE SINGLE SHOT REQUEST 
constant WKREPT equals der ESM_REP EAT. ye i3 roe tag $C; SUG AKE ENTRY REPEAT REQUEST 


constant WKSNGL equals : prefix TQE tag $C; 


end TQEDEF; 


/*WAKE ENTRY SINGLE SHOT REQUEST 


SYS 
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end_module STQEDEF; 
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SYS 


x 
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module SUAFDEF; 
/e++ 


/* User authorization file format 

/* Note: With the exception of the username and account name, 
/* all strings are blank padded counted strings. Username and 
/* account name are uncounted, blank padded. 


aggregate UAFDEF structure prefix UAFS$; 
sore TYPE 4 


byte unsigned; /* UAF record type 
constant ( 
* /* main user ID record 
) equals 1 increment 1 tag C; 
VERSION byte unsigned; /* UAF format version 
constant 
VERSION /* this version 
) eoyeis 1 increment 1 tag C; 
USRDATOFF word unsigned; /* offset of counted string of user data 
USERNAME structure character bongth 32; /* username 
FILL_O character Length 31 fill; 
USERNAME_TAG character; /* tag to differentiate records 
end USERNAME ; 
UIC structure longword unsigned; /* user ID code 
MEM word unsigned; /* member subfield 
rs word unsigned; /* group subfield 
e . 
SUB_1D longword unsigned; /* user sub-identifier 
PARENT_ID quadword unsigned; /* identifier of owner of this account 
constant KEYED_PART + ig . tag C; /* ISAM keys come this far 
ACCOUNT character Length 32; /* account name 
OWNER character lengt s /* owner's name 
DEFDEV character Length 32; /* default device 
DEFDIR character length 64; /* default etrectety 
LGICMD character length 64; /* Login command file 
DEFCLI character length 32; /* Jefault command interpreter 
CLITABLES character length 32; /* user CLI tables 
PWD structure quadword unsigned; /* bashed password 
i ar longword unsigned; /* 32 bit subfield 
PwD2 eer unsigned; /* second password 
LOGFAILS word unsigned; /* count of login failures 
SAL? word unsigned; /* random password salt 
ENCRYPT byte ui.signed; /* encryption algorithm 
constant ( /* ene ryot ton 4 
AD_II /* AUTODIN-II bit cre code 
. PURDY /* Purdy polynomial over salted input 
PURDY_V /* Purdy polynomial + variable Length username 
} equals 0 increment 1 tag C; 
ENCRYPT2 byte unsigned; /* encryption algorithm for 2nd pwd 
PWD Lets byte unsigned; /* minimum password length 
FILC byte dimension 1 fill tag $$; 
EXPIRATI oe unsigned; /* expiration date for account 
PWO_LIFETIME quadword unsigned; /* password Lifetime 
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LASTCOGIN_I quadword A 
LASTLOGIN_N pe oh unsigned; 
PRIV quadwor unsigned; 

IV quadword uns gned; 
MIN “GLASS, aersture 


“FIL byte dimension 20 fill; 
end MIN bees 
MAX_CLASS arrester 
FILL castee Siasnsien 20 fill; 
ere MAX S 
FLAGS stratote jenguore unsigned; 
DISCTLY Oi tf iot 
DEFCLI bitfield; 
LOCKPWD bitfield; 
CAPTIVE bitfield; 
DISACNT bitfield; 
DISWELCOM bitfield; 
DISMAIL bitfield; 
NOMAIL bitfield; 
GENPWD bitfield; 
PWD_EXPIRED bitfield; 
PWO2_EXPIRED bitfield; 
AUDIT bitfield; 
DISREPORT bitfield; 
DISRECONNECT bitfield; 
end FLAGS; 
NETWORK _ACCESS_P byte unsigned dimension 
NETWORK_ACCESS_S byte unsigned dimension 3; 
BATCH_ACCESS_P byte unsigned dimension 3; 
BATCH_ACCESS_S byte unsigned dimension 
LOCAL_ACCESS_P byte unsigned dimension 
LOCAL pACcess 5° orce unsigned dimension 
DIALUP_ACCESS_P byte unsigned dimension 
DIALUP_ACCESS_S byte unsigned dimension 
REMOTE_ACCESS_P byte unsigned dimension 
ee ACCESS_S byte ung 'gned ot eracogee 
FILL_4°b res dimension 1 $; 
PRIMEDAY structure byte astonei 
MONDAY bitfield; 
TUESDAY bitfield; 
WEDNESDAY bitfield; 
THURSDAY bitfield; 
carpe bit tield: 
SATURDAY bitfield; 
SUNDAY bitteta: 
end PRIMEDAY 


FILL_5S byte , 1 fill tag $$; 
PRI byte unsigned; 

QUEPRI byte unsi ned; 

MAXJOBS word uns gned; 


MAXACCTJOBS word unsigned; 
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date of yes change 
date of end peyseuere hange 
date of last interactive fo 
date of Last =e 
precess privilege yes for 

bh pad process privileges 
minimum security class 


ogin 
ve Login 


maximum security class 


user flags lon hy 
-: user control- 

y allow user Netault CLI 
disable SET PASSWORD command 
captive account (no overrides) 
no interactive login 
skip welcome message 

skip new mail message 
disable mail delivery 
———— must be generated 
ae has expired 

nd password has expired 
audit all actions 

skip last login messages 
inhibit reconnections 


hourly network access, primary 
hourly network access, secondary 
hourly batch access, primary 
hourly batch access, secondary 
peurly local access, primary 
hourly local access, secondary 
hourly dialup access, primary 
hourly dialup access, secondary 
hourly remote access, primary 
eure remote access, secondary 
space for 2 more access types 
bits feerosent ing. ¢ primary core 
bit clear means this is a or poly day 
bit set means this is an off 


maximum job queuin ng eriority 

maximum jobs for UIC allowed 
means no Limit 

maximum jobs Me. account allowed 
means no Limit 


base un fob. priority 


SYSDEFQZ.SDL;1 
MAXDETACH word unsigned; 
® 
PRCCNT word unsigned; /* 
BIOLM word unsigned; /* 
DIOLM word unsigned; /* 
TQCNT word unsigned; /* 
ASTLM word unsigned; /* 
ENQLM word unsigned; /* 
FILLM word unsigned; /* 
SHRFILLM word unsigned; /* 
WSQUOTA Longword unsigned; /* 
DFWSCNT Longword unsigned; /* 
WSEXTENT longword uns gned: /* 
PGFLQUOTA Longword uns qned: /* 
CPUTIM Longword unsigned; /* 
BYTLM Longword unsigned; /* 
PBYTLM Longword unsigned; /* 
JTQUOTA Longword unsigned; /* 
PROXY _LIM word unsigned; /* 
PROXIES word unsigned; /* 
ACCOUNT_LIM word unsigned; /* 
ACCOUNTS word unsigned; /* 
FILL_99 oyye dimension 64 fill tag $$; 
constant FIXED equals . prefix UAF$ tag K; /* 
constant FIXED equals . eretix UAFS$ tag Cs /* 
FILL_100 byte dimension 768 fill tag $$; /* 


constant ‘LENGTH’ equals . prefix UAF$ tag K; 
constant “‘LENGTH’’ equals . prefix UAF$ tag C; 
end UAFDEF; 


end_module SUAFDEF; 


M 
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maximum deta ave processes for UIC 
0 means no Limit 

subprocess gregtion Limit 

buffered 1/0 Limit 

direct 1/0 Limit 

timer queue entry Limit 
AST queue Limit 


enqueue Limit 

open a"he Limit 

snared file Limit 

work Hy set size quota 
Cotoyt working st size 
work Limit 


ng set size 
fil 


BE foe Guts 


ota 

buffered 170 byte count Limit 

ae buffer 1/0 byte count Limit 

ob-wide logical name table creation quota 
number 
number 
number 
number 


of proxies user can grant 
of proxies granted 

of sub-accounts allowed 
of sub-accounts in use 


Length of fixed portion 
length of fixed portion 
user-extensible area 


N 
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geeele SUASDEF ; 
i: "Unieus ADDRESS SPACE REGISTER DEE INL TIONS FOR DW750 . 


/e= 


(SECOND UNIBUS ADAPTER ON 11/7 


ssgregate uistet structure prefix UAS$; 


1 byte dimension 5216 fill prefix UASDEF tag $$; 


IP structures /* INTER=PROCESSOR EXERCIS 
FILL_2 word dimension 2 fill prefix UASDEF tag $$; /* ADDRESS AND DATA REG 


CRI_OVERLAY union fill; 
IP word unsigned; 


ER_COMMUNICAT 
ISTERS NOT CURRENTLY USED 


/* THE THIRD IPEC REGISTER, CRI 


CRT_BITS eTregtere | fill: 
fieid Length 12 fill orate UASDEF tag $$; /* SKIP BITS OF NO INTEREST 
ip ERI PIE bitfield mask; POWERFAIL IN ERRUPT is NABLE 
P-CR1_PDN bitfield et ie POWER DOWN STATUS BIT 


end IP; 


end UASDEF; 
end_module SUASDEF; 
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ene SUBADEF ; 
i UNIBUS ADAPTER REGISTER OFFSET DEFINITIONS 


soar een Sy ERLAY Mo as prefix UBAS; 
union 

qugvere unsi gned; /*CONFIGURATION STATUS REGISTER 

CSR Bit structure fill; 


“CSR_ADCOD bitfield Len /* ADAPTER CODE FIELD 
FILC.1 bitfield lengthos. fit prefix UBADEF tag $$;/ SERVED BITS 
CSR_OBIC tletistden ask; /* UNTBUS INITIALIZATION COMPLETE 
CSR-UBPDN bitfield “nash; /* UNIBUS POWER DOWN 
CSR-UBLIP bitfield ma /* UNIBUS INITIALIZATION IN PROGRESS 
FILC_2 bitfield Length Ki fill prefix UBADEF tag $$;/* RESERVED BITS 
CSR_OT bitfield /* OVER TEMPERATURE 
CSR-PU bitfield mask; /* ADAPTER POWER UP 
CSR PD bitfield m /* ADAPTER POWER DOWN 
FILC.3 bitfield Le ron 2 fill prefix UBADEF tag $$;/* RESERVED BITS 
CSR_RMFLT bitfield mask; /* TRANSMI7 TER FAULT 
CSR-MT bitfield mask; /* MULTIPLE TRANSMITTERS 
CSR-IS bitfield mask; /* INTERLOCK SEQUENCE FAULT 
CSR-URD bitfield mask: /* UNEXPECTED READ DATA 
CSR-WS bitfield mask; /* WRITE SEQUENCE DATA 
CSR7PE bitfield mask; /* SBI PARITY ERRO 

end CSR BITS; 

end CSR_OVERLA 
R_OVERCAY tae fill; 

C Lopgwore unsigned; /*CONTROL REGISTER 

CR_BITS structure fill; 
CR_INIT bitfield mask; /* ADAPTER, INITIALIZATION 
CR-UBPF bitfield mask; /* UNIBUS POWER FAIL 
CR-CNFIE bitfield mask /* CONFIGURATION INTERRUPT ENABLE 
CRISUEFIE bitfield mask; /* SBI TO UNIBUS ERROR FIELD IN 
CRIUSEFIE bitfield mask: /* UNIBUS TO SBI ERROR FIELD IN 
CR_BRIE bitfield pass /* BUS REQUEST INTERRUPT ENABLE 
CRUIFSIE bitfield m /* INTERRUPT FIELD SWITCH INTER 
CRTARLVL bitfield mask’ | "at /* TER REQUEST LEVEL 
FICL_4 bitfield Length 17 Fill Oh atte UBADEF tags "8; is RESERVED BITS 
CR_MRDSB bitfield Length 5 GISTER DISABLE 

end CR BITS: 

end CR_OVERLA 

OVERLAY ie fill; 

OER pooguors unsigned; /*STATUS REGISTER 

SR_BITS structure fill; 

, bitfield mask; /* UNIBUS SLAVE S IMEOUT 
ie ield mask: / UNIBUS SELECT TIMEOUT 
: LOST ERROR 


>oomwm< o- 


L 
TERRUPT ENABLE 
TERRUPT ENABLE 


RUPT ENABLE 


seneepee 
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SR_RDS bitfield mask; /* READ DATA SUBSTITUTE 

SR-RDTO bitfield mask: is READ vata TIMEOUT 

SR BRID bittield m BUS RE QUEST INTERRUPT DONE 

FICL 5 bitfield eeers 12 fill prefix UBADEF” ite tag § $;/* RESERVED BITS 

SR_BRRVF bitfield Length 4; REQUEST RECEIVE VECTOR FULL 
SRBRSVF bitfield mask; is BUS REQUEST SEND VECTOR FULL 
SRTRIE bitfield mask; /* REQUEST INTERRUPT ENABLED 
SR-UBIES bitfield mask; /* UNIBUS INTERRUPT FIELD SWITCH 


@ 

3 

a 

4 

* at 

ma'O 

<n 

om 

ay 
ar 

»>er- 


DCR Long word unsigned; 
FMER “Ove NS, union. i l; 
ongword unsigne qi. 


abn t 
pitta 


a--8 
oo 
Se. 


gth 9; 


structure ned 

ADR bitfield length 18; 
end FUBAR_BIT 8; 

end FUBAR_OVERLAY 


/*DIAGNOSTIC CONTROL REGISTER 
/*FAILED MAP ENTRY REGISTER 
/* FAILED MAP REGISTER NUMBER 


/*FAILED UNIBUS ADDRESS REGISTER 
/* FAILED SBI TO UNIBUS ADDRESS 


FILL_6 loheuerd dlecnsten 2 fill prefix UBADEF tag $$;/*RESERVED REGISTERS 


BRSVR Longword unsigned dimension 4; 
BRRVR OVERLAY union fill; 
BRPVR | aire str uns igned dimension 4; 
BRRVR spun structure 3 
a eittieua length 


/*BUS REQUEST SEND VECTOR REGISTERS 
/*BUS REQUEST RECEIVE VECTOR REGISTER 
/* INTERRUPT VECTOR ADDRESS 


i Re! bit field Length 15 tit prefix UBADEF tag $$: /* RESER 


m 
BRRVR_AIR bitfield mask; 
end BRRVR BITS; 
end BRRYRO VERLAY; 
DPR VERRY. union fill; 


“SPR longword unsigned dimension 16; 

DPR_BITS structure fill; 
PR_ADDR bitfield ee 183 
DPR_STATE bitfield Leng / 
FILC_8 bitfield length % mete prefix UBADEF 
DPR_BDPF bitfield mask; / 
DPR_XMTER bitfield mask; 

BNE bitfield mask; 


DP 
end OP PREBITS; 
Fit. 8 DPR gove ERLAY: 


P-BVERLAY union 
“MAP Ties uns igne dimension 496; 
MAP Bit peruetue ure fill; 
itfield Length 21; 
strettae te Long h 4; 
tf 

bi 


MA tfield mask; 
end MAP-BITS 
constant MAXDP equals 15 prefix UBA tag $C; 


VED BITS 
APTER INTERRUPT REQUEST PENDING 


/*DATAPATH REGISTERS 
/* BUFFERED UNIBUS es 


/* BUFFER Maa 1A ERROR 
/* BUFFER NOT EMPTY 


te dimension 1 1920 fill prefix UBADEF tag $$;/* VALUE IS 2048-128 


/*MAP REGISTERS 


/* SBI PAGE ADDRESS 
/* erie ace DESIGNATOR 


/ 
fela"te tength 5 fill prefix UBADEF vag 38; /* RESERVED BITS 


P REGISTER VALID 
/*MAXIMUM DATAPATH ! 


—— eee 
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end MAP_OVERLAY; 
end UBADEF ; 


end_module SUBADEF ; 
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godule SUBIDEF; 
a UNIBUS INTERCONNECT (VAX 11/750 & 11/730) REGISTER OFFSETS AND FIELDS 


aggregate UBIDEF union prefix UBIS$; 
R longword unsigned dimension 4; Te CORR Dot LiL ERENTED) 
DFR_BITS purructyce ft ye 


“DP cPyrb Siield /* DATAPATH PURGE 
ILC_1 bitfield Length 28 fill prefix UBIDEF Ay Be Pek ie ornare ee ua 
DPR -Oce bitfield CTABLE ERR 
DPR_NXM bitfield aeati \¢ UNCORRECTABL MERCRY 
DPR =ERRO OR bitfield mask; /* ERROR (UCE!NXM) 
end DPR_BITS; 


end UBIDEF; 


eperegete UB UBIDEF1 structure prefix UBIS$; 
ote dimension 16 fill prefix UBIDEF tag $$; 
DSR ROVER AY union fill; 
“DSR longword unsigned dimension 4; /*DIAGNOSTIC STATUS REG 
/* (DSR 0 NOT IMPLEMENT 
DSR nate structure fill ' 


2 bitfield Length 27 fill prefix UBIDEF Psa $$; /* RESERVED BI 
DSR_CD bitfield BYTES IN BDP FULL 
DSR-BF bitfield Length 4; oe BYTE us 1,2,3 IN BDP HAS VALID DATA 


end DSR_BITS; 
end DSR_OVERLAY; 
end UBIDEF1; 


aggre pee Pg toga | structure prefix UBI$; 
ay ere? 27 dimension 16 fill prefix UBIDEF tag $$; 
oe ERLAY union fill; 
“ SR lLongword unsigned; /*UB STATUS REGISTER: 
SR_BITS structure fill; 
L_3 bitfield Length 14 fill prefix UBIDEF hy 5: $$;/* RESERVED BITS 
_UQE bitfield mas ORRECTED WRITE ERROR 
“MRPE bitfield mask; te MAP REGISTER PARITY ERROR 
SR_NXM bitfield mask; /* NONEXISTENT MEM ORY REF 
[L_4 bitfield Length 14 fill prefix UBIDEF /2°9 $3;/* RESERVED BITS 
- sR ate bittiels mas NCORRECTED READ ERROR 
en ° 


/*END OF CPU_SPECIFIC REGISTERS 
end SR_OVERLAY; 
end UBIDEF2; 


eggregate UB UBIDEF3 structure sopeet it 2 
byte dimension 2048 fill pre ix UBIDEF tag $8; /*RESERVE *X800 BYTES 
MAP Tonguard: unsigned Floss ion /*MAP REGISTERS, SAME FORMAT AS UBA 
constan equals prefix UBI tag $ /*MAXIMUM DATAPATH ! 
. constant PURCNT equals 10 prefix UBI tag $i; /*MAX ! OF TESTS OF PURGE DONE 
en 3 


end_module SUBIDEF; 


SYS 


/* 
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gees SUBMDDEF ; 
Jo UBMD - UNIBUS Map Descriptor used to record UNIBUS map registers 


ye and datapaths allocated. 


aggregate UBMDDEF structure prefix UBMD$; 
MAPRE 


G word unsigned; /* Starting map he a 
NUMREG byte unsigned; /* Number of registers in extent 
DATAPATH byte unsigned; /* Associated Buffered datapath 


end UBMDDEF ; 
end_module SUBMDDEF ; 
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‘ 
UCB - UNIT CONTROL BLOCK 
THERE IS ONE UCB FOR EACH DEVICE UNIT IN 


module SUCBDEF; 


everepete VE UCBDEF structure prefix UCBS$; 
VERLAY union fill; 
QFL longword unsigned; 
UNIT SEED word uns gned; 
MB_SEED word unsigned; 
ROFL lon word uns gned; 

end FQFL_OVERLAY; 

FQBL OVERLAY union fill; 
FQBL longword unsigned; 
RQBL a unsigned; 
FQBL_O 


n 
Pye — = 


end FR3_0 
FR4 tOVERCAY™ = fill; 
“FR& Longword uns ign ed; 
MB_FR4_ FIELDS structure fill; 
MSGMAX word unsigned; 
MSGCNT yee unsigned; 
one MB_FR4_FIELDS; 
FIRST Ton word unsigned; 
end FR4_OVERL 
BUF QUO OVERLAY. inten fill; 
BUFQ 


DSTADDR 
end BUFQUO_OVERLAY; 
——- word une ied 
word 
LocKID etter er. fill; 
longword unsigned: 
tp rc "les yore aes 
one LOCKID_OVERL 


f 
DEVCHAR quaduord unsigned; 


H 
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A SYSTEM. 


/*FORK QUEUE RSEED LINK 
MBER SEED 
/* NET == RCV QUEUE FORWARD LINK 


Que : BACKWARD LINK 


UEU 
= RCV QUEUE BACKWARD LINK 
UCB _IN rues 
E TYPE FOR UCB 

ERRUPT PRIORITY LEVEL 
/*FORK P 


/* MB_=- AST QUEUE LISTHEAD FORWARD LINK 
/* NET == PARTNER'S NODENAME 


/*FORK R3 
/* MB -- AST QUEUE LISTHEAD BACKWARD LINK 
/*FORK R4 


/* MB -- MAXIMUM MESSAGES ALLOWED 
/* MB -- CURRENT NUMBER OF MESSAGES 


/* NET -- ADDR OF 1ST SEG OF CHAINED MSG 
/* BUFFERED I/0 QUOTA CHARGED FOR THIS UCB 
/* NET -- REMOTE CONNECT NO. 

/* NET == LOCAL CONNECT NO. 


/* OBJECT'S RIGHTS BLOCK ADDRESS 

/*DEVICE LOCK ID 

/*PID CHARGED FOR BUFQUO BY UCBCREDEL 
/tADDRESS OF PRIMARY CHANNEL REQUEST BLOCK 
/*BACKPOINTER TO DEVICE DATA BLOCK 
/*PROCESS ID OF OWNER PROCESS 

/*tADDRESS OF > UCB FOR RESPECTIVE DDB 
/*tADDRESS OF VOLUME CONTROL BLOCK 

Pevevise CHARACTERI ut BITS 

/* Device characteristic bits quadword 
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— Q PLpCK structure bs 
DEVCHAR Longword unsign 
DEVCHAR2 tergeere uns qned: 
end 4? bata a 
end DEVCHA 
pevetore byte unsigned; 
DEVTYPE byte unsigned; 


DEVDEPEND BLOCK s ure: 
EVDE EPERD DeOVERLAY “unten” me 
DEVDE ongword unsigned; 
DISK peye a structure; 
SECT S byte unsigned; 
TRAC (ks b e unsigned; 
By LsOets word unsigned; 


TERM. DEVBEPEND struc 


TERM_DEVDEPEND_ VFILL “byte dimension 
rit tag $$ 


lL prefix UCBDE 
VERT couiee um unsigned; 
end TERR, DE D; 
NET_D VDEPEND seretenred 
“PBs 


BYT 
y ~ M DEVDEPEND; 
Lon word scien 
end DevBe PEND OVERL 
DEVDEPND OVERLAY a fill; 
DEVDEPND Congword unsigned; 
TT_DEVDP1 songwerd unsigned; 
end D EVDEPNDE 0 
end SEVDEPEND cite 
end DEVDEPEND_Q_OVERLA 
10QFL Longword eslenade 
10QBL longword unsigned; 
UNIT word unsigned; 
CHARGE OVERLAY union fill; 
CHARGE word unsigned; 
RWAITCNT word unsigned; 
CTRLR_ALLOC_FIELDS structure fill; 
cA byté unsigned; 
CM2 byt oereei 
end CTRLR YALLOC- FIELDS; 
end CHARGE OVERLAY 3 


Lengword unstened; 
STS_OVERLAY union fill; 
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/* Original device characteristic bits 
/* Extended device characteristic bits 
/*DEVICE CLASS 

/*DEVICE TYPE 

/*DEVICE DEFAULT BUFFER SIZE 

vepevice DEPENDENT DATA 

/*Device dependent quadword 

/* First device dependent longword 

/* Disk fields 

/* Sectors per track 

/* sregk per cylinder 

/* Cylinders per disk 

/* Terminal fields 

/* Vertical page size (lines per page) 
/* Network fields 

/* Local Link services 

/* Remote Link services 

/* No. of bytes left in rcv bfr 


/* Journal == Running sequence number 


/* i device dependent long word 
/* Terminal -- Device dependent long word 


/*1/0 QUEUE LISTHEAD FORWARD LINK 

/*1/0 QUEVE LISTHEAD BACKWARD LINK 
/*PHYSICAL DEVICE UNIT NUMBER 

/*MAILBOX BYTE COUNT QUOTA CHARGE 

/* CLASS DRIVERS -- THREADS WAITING RESOURCES 
/* LEVEL 1 CONTROLLER ALLOCATION MASK 

/* LEVEL 2 CONTROLLER ALLOCATION MASK 
/*CURRENT 1/0 REQUEST PACKET ADDRESS 
/*REFERENCE COUNT OF PROCESSES 

/*DEVICE INTERRUPT PRIORITY LEVEL 

/* NET == LINK STATE FOR NETWORK TRANSITIONS 
/tALLOCATION ACCESS MODE 

/*ASSOCIATED UNIT CONTROL BLOCK POINTER 


SY! 
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Oe VOOM -+w« — 


a2== 
oz + 


d mask; 
eld mask; 


MNTVERPND 
DISMOUNT 
CLUTRAN bi 
end STS_BITS; 
end STS_OVERLAY; 
DEVSTS OVERLAY union fill: 
DEVSTS word unsigned; 
DEVSTS GENERAL 8 7s structure fill; 
JOB bitfield mask; 
Povets en fill “bittietd Length 5 


TEMPL_6 itfield mask; 
pe aE “strut : fill; 
8 ruc ure 
PRANAB itrietd 
DELMBX X bitfield eae 
devsts -nb fill bietietd length 1 f 
SHMMBX “ot tfield mask; 
end DEVSTS MAILBX_BITS; 
VSTS_TERA_BITS fry eiiet 
devsts_Et_fill bit feta" bh 1f 
TT_TIMO bitfield m 
TTINOTIF bitfield rnask;_ 
TT_HANGUP bitfield m 
TT_DEVSTS riit bitfield’ Length 15-*; 
TT-NOLOGIAS bitfield mask; 
nd DEVSTS_TERM_BITS; 
DEVSTS_NET_BITS strycture f 
devsts_net fill! bitf itd , 2 
T_BF ROVE Bitfigtd mask; 
devsts net fills bitfield fill; 
‘ bitfield mask; 
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/*DEVICE UNIT STATUS 


/* TIME OUT ENABLED (1= 
/* INTERRUPT EXPECTED ( 
/* ERROR LOG IN PROGRES 
/* CANCEL 1/0 ON UNIT ( 
/* UNIT ONLINE (1=YES) 
/* POWER FAILED WHILE T 
/* UNIT TIMED OUT (1=YE 
/* RECEIVER INTERRUPT | 
/* UNIT Is BUSY (1=YES) 
/* DEVICE 1$ BEING MOUN 
/* DEALLOCATE AT DISMOU 
/* VOLUME 1S SOFTWARE 
/* UNLOAD VOLUME AT DI 
/* SET IF THIS IS TEMPLA 
¢ FROM WHICH OTHER UC 
THIS DEVICE TYPE ARE 
/* MOUNT VERIFICATION I 
/* WRONG VOLUME DETECTE 
/* DELETE THIS UCB WHEN 
/* VOLUME IS VALID ON T 
/* IF SET, SUPPRESS SUC 
{ CLEARED BY ANY ERROR 
/* MOUNT VERIFICATION I 
/* DISMOUNT IN PROGRESS 
/* VAXcluster STATE TRA 


/*DEVICE DEPENDENT STATUS 


Generally used bits 


Job Controller notified 
/* Template UCB is busy 


fill; 


/* Mailbox status bits 
/* Permanent mailbox 


/* Mailbox marked for delete 
/* Shared memory mailbox 


ate /* Terminal status bits 


/* Terminal read timeout in progre 


gage 2 ee Ue 


CAL NOD 
TYPE MOUNT VER. _— 


FICATIO 


/« Terminal user notified of unbel icted data 


/* Process han 
* NOLOGINS ALLOWED 


/* Network status bits 
fill; 


/* Too many bytes rcvd 
/* Link has declared a connect name 


’ fill to tha ene the word 
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NT erent bitfield mask; 
end DEVSTS NET BITS; 
DEVSTS leks” structure fill; 


ECC bitfield mask; 
DIAGBUF bitfield mask; 
NOCNVRT bitfield mask; 
DX_WRITE bitfield mask 
DATACACHE bitfield mask; 

end DEVSTS_DISKS; 

DEVSTS_MSCP_CLASS BITS structure fill; 

byte. fill bitfield Length 8 fill; 

MSCP_MNTVERIP bitfield mask; 
MSCP ~INITING bitfield mask; 
MSCP_WAITBMP bitfield mask; 
MSCP_FLOVR bitfield mask; 
MSCP_PKACK bitfield mask; 
MSCP-WRTP bitfield mask; 

end DevsTs MSCP_CLASS BITS; 

DEVSTS_TAPE_CLASS_BITS structure fill; 
TU_OVRSQCHK bitfield mask; 
TU_TRACEACT bitfield mask; 
TU-SEQNOP bitfield mask; 

end DEVSTS TU CLASS_BITS; 

DEVSTS_JOURNAC_BITS structure 
devsts jal fill bitfield yf 4 fill; 
PERM_JAL bitfield mask; 
K JNL bitfietd mask; 
JNL_CCS bitfield mask; 
JNL_SLV bitfield mask; 
CDECE_PND bitfield mask 
JNL_URMAST bitfield mask; 

end DEVSTS S, JOURNAL BITS; 


end DEVSTS “OVERLAY: 
QLEN word uns igned: 
DUETIM Longwor unsigned: 
OPCNT Longword yns tgned: 3 
SVPN_OVERLAY union 
Sv Longvord Th i 
LOGADR anere unsigned: 
end SVPN. OVER 


SVAPTE lanenete unsigned: 
BOFF word unsign og: 


i . 
POT “DvERLAY unlex t f 
Stat uns gred 
nce ) senauer unsigned: 
end Pot “OVERL 
DDT Long om Sign ned; 
MEDIA_I WOVERLAY union fill ; 


K 
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~ 
* 


Link is being broken 


ot sh (all disks) status bits 
(usi ng the low qrge er byte, for 
compa a a ¥ th class driver 
usage of the high order word) 

C correction was made 
A agnostic buffer specified 
BN to media address conversion 
Console { Loppy write operation 
Data blocks being cached 


MSCP class driver bits 

(using the bien order byte only) 
Mount verification in progress 
UCB is being initialized en 
RWALTONT has been bumped 
Bit toggled everyting, a failover succeeds. en 
Set when a IO$_PACKACK is in progress. 
Unit MSCP write protected in some way. 


*#e2eeee8 a *#e2#es282 


oa 


Tape class driver bits 
(using the low order byte only) 
Override sequence checking 
IRP trace table active 
Sequential NOP tape operation in progress 


SSS SRR WS SSS 


aes 


/* Journal status bits 


/* Permanent journal device 

/* Known journa 

/* Cluster journal 

/* Slave journal UCB 

/* Cluster delete operation pending 
/* Device unmastered 


/* Device queue Len mere 
/*DUE TIME FOR 1/0 PLETION 
/*COUNT OF OPERATIONS COMPLETED 


/*SYSTEM VIRTUAL PAGE/MAP REGISTER NUMBER 
/* MB -- LOGICAL NAME BLOCK ADDRESS 


veaviere VIRTUAL sth: Sate PTE 


/*BYTE OFFSET IN FIRS 

/*BYTE COUNT OF TRANSE 

/*ERROR LOG DEVICE CURRENT ERROR RETRY COUNT 
/*ERROR LOG DEVICE MAXIMUM ERROR RETRY COUNT 
/*DEVICE ERROR COUNT 

/*ADDR OF PORT DESCRIP 


TOR TABLE 
/*MASTER NODE: S$ CSID (JOURNALING) 
/*ADDR OF DOT (OPTIONAL BUT PREFERRED) 


4 
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MEDIA_I1D Longverd unsigned; /*BIT ENCODED MEDIA IDENTIFICATION 
MEDIA_10_SUB aotet asructure fill; 
MEDIA_ID_NN bitfield Length 7; /* MEDIA NAME NUMBER 
MEDI AW1D NG bitfield Length 5; /* MEDIA NAME CHAR 
MEDIA_ID_N1 bitfield length 5; /* MEDIA NAME CHAR 
MEDIA_ID_NO bitfield length 5; /* MEDIA NAME CHAR 9 
MEDIA_ID_T1 bitfield Length 5; /* MEDIA TYPE CHAR 
MEDIA_ID_TO bitfield length 5; /* MEDIA TYPE CHAR 0 
end MEDIA_1D_ SUBFIELDS; 
end MEDIA_ID_ OVERLAY; 
constant “LENGTH’' equals . prefix UCBS tag Ki /*LENGTH OF STANDARD UCB 
constant ‘LENGTH’ equals . prefix UCB$ t tag t /*LENGTH OF STANDARD UCB 
#UCB_LENGTH = .; /* for STTYUCBDEF 
end UCBDEF: 
/* 
/* DEVICE DEPENDENT UCB EXTENSIONS 
ae 
/* MAILBOX 
/t 
ahd (08s a UCBDEF3 structure prefix UCB$; 
ah dimension UCBSK_ LENGTH fill prefix coma: oy my 
MB_WAST Longword unsigned; ~ /*WRITE Si rTeNTION AST BLOCK ADDR 
MB-RAST Longword unsigned; /*READ ATTENTION AST BLOCK ADDR 
MB"MBX Longword unsigned; /*MAILBOX CONTROL BLOCK ADDR 
MB-SHB Longword unsigned; /*SHARED vy CONTROL BLOCK ADDR 
MB-WIOQFL longword unsigned; peueite 1/0 QUEUE FORWARD LINK 
4B -¥100B1. longword unsigned; /*WRITE 1/0 me 2 Beanie LINK 
MB-PORT Longword unsigned; /*SHARED MEM, NUMBER 
constant MB_LENGTH equals . prefix UCBS$ tag K; /*SIZE OF RAILBOR Wi: 
constant MB_LENGTH equals . prefix UCBS$ tag C; /*SIZE OF MAILBOX UCB 
end UCBDEF 3; 
/t 
. ERROR LOG DEVICES (ALL) 
. 
“oer Ffitre UCBDEF4 structure prefix U 
byte dimension UCBSK ‘LENGTH Fiat prefix UCBDEF ag 
SLAVE byte unsigned; /*SUAVE sion TROLLER NUMBER 
SPR byte unsigned; /*SPARE UNUSED BYTE 
FEX byte unsigned: /*FUNCTION em ABLE INDEX 
CEX byte unsigne a /*CASE TABLE FUNCTION EXECUTION INDEX 
fo longword uns /*ADDRESS OF ERROR MESSAGE BUFFER 
FILL_1 word filt oretin UCBDEF tag $$; /*SPARE UNUSED WORD 
FUNC’ word unsigned; /*1/0 FUNCTION MODIFIERS 
DPC Longword unsigned; /*SAVED DRIVER SUBROUTINE RETURN ADDRESS 
constant ERL_LENG 1 equals .; /*SIZE OF ERROR LOG UCB 
constant ERL_LENGTH equals . tag C; /*SIZE OF ERROR LOG UCB 


end UCBDEF4; 


/t 
mn DUAL PORTED DEVICES {ALL DISKS AND MOST TAPES) 


SYSDEFQZ.SDL;1 


aggregate DUALPATH_ EXTENSION structure prefix UCBS; 
fill_dualpath Byte dimension UCBSK_ERL_LENGTH fill; 

DUAL_PATH union fill; 

OLD_DUAL_PATH structure fill; 

DP_DDB Longword unsigned; /* 

DP_LINK longword unsigned; /* 

DP_ALTUCB Longword unsigned; /* 
end OLB _DUAL_PATH; 

PREFERED DUAC PATH structure fill; { 
eee ,songword unsigned; /* 
SPatINK’ longword unsigned; /e 

P_ALTUCB’’ Longword unsigned; /* 
end PREFERED_DUAL_PATH; 
end DUAL_PATH; 
constant DP_LENGTH equals .; /* 
constant DP LENGTH equals . tag C; /* 
constant ‘‘2P_LENGTH’’ equats .; 
constant ‘‘2P_LENGTH" equals . tag C; /* 


#2P_LENGTH =; 
end DUACPATH_EXTENSION; 
/* 

is ALL DISKS AND TAPES 


aggregate DISKTAPE_UCB_EXTENSION structure pref 
fill disktape Byte dimension #2P_LENGTH fil 
DIRSEQ structure word unsigned; 
Ller bitfield length 15 fill; 
AST_ARMED bitfield mask; 
end DIRSEQ; 
ONLCNT byte unsigned; 
reserved oye i3 
DISKTAPE OVERLAY union fill; 
MAXBCOCK longword unsigned; 
RECORD Longword unsigned; 
end DISKTAPE_OVERLAY; 
constant LCL_TAPE_LENGTH equals .; 
constant LCL_TAPE_LENGTH equals . tag C; 
MAXBCNT lLongword unsigned; 
DCCB Longword unsigned; 
#BEGIN_LOCAL_DISKS = .; 


BE pz.; 
end DISKTAPE_UCB_EXTENSION; 


aggregate LCL_DISK_UCB_EXTENSION structure prefix 
fili_lcl_disk Byte dimension #BEGIN_LOCAL_DISK 
MEDIA structure mpi unsigned; 
DA word unsigned; 
DC word unsigned; 
end MEDIA; 
BCR structure longword unsigned; /* 
BCR word unsigned; 


He uCcBS; 


cs a a 


sans 


~SS NN SOS OS 
as 


UCBs; 
S fill; 


word unsigned; /* 


e 
EC1 
EC2 word unsigned; /* 


M } 
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setup two versions of the peat names 
This is the old way of naming things 
Pointer to alternate DDB 

Address of next UCB for this DDB 

Addr of alternate UCB for this unit 


This is the as yer of naming things 
Pointer to alternate DD 

Address of next UCB for this DDB 

Addr of alternate UCB for this unit 


f dual path UCB 
f dual path UCB 
f dual path UCB 
f dual path UCB 


Directory sequence number 
skip value yertien of sequence number 
Blocking AST armed flag 


Online count 
Reserved byte 


Random access device highest block 
Current tape position or frame counter 


Size of local tape UCB 

Size of local tape UCB 

Maximum transfer BCNT 

Pointer to data cache control block 


Media address (longword) y 
Saved desired sector/track address register 
Saved desired cylinder address register 


Byte count register 


ECC position register 
ECC pattern register 
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OFFSET word unsigned; 

OFFNOX byte unsigned; 

OFFRTC byte une lero’: 

constant LCL_DISK_LENGTH equals .; 
constant LCL_DISK_LENGTH equals . tag C; 


/* 
. FLOPPY DEPENDENT BIT DEFINITIONS 


DX_BUF Longword unsigned; 

DX_BFPNT Longword unsigned; 

DX_RXDB Longword unsigned; 

DX_BCR word unsigned; 

DX_SCTCNT byte unsigned; 

FICL_2 byte fill prefix UCBDEF tag $$; 


ae LCL_DISK_UCB_EXTENSION; 
/n MSCP DISKS AND TAPES UCB EXTENSION 


aggregate MSCP_UCB_EXTENSION structure pre 

mscp_fill Byte dimension #BEGIN_MSCP f 

CDDB longword unsigned; 

"2P_CDDB” Longword unsigned; 

CDDB_LINK Longword unsigned; 

CDT Tongword unsigned; 

UNIT_ID quadword qos teres 

MSCPONIT word unsigned; 

P_MSCPUNIT’’ word unsigned; 

MSCPDEVPARAM Longword yns ined; 
WAIT_CDDB Longword unsigned; 


UNIT_FLAGS word unsigned; 
reserved word unsigned fill; 
MSCP_RESV quadword unsigned; 
constant MSCP_DISK_LENGTH equals 


constant MSCP-TAPE-LENGTH equals .; 
end MSCP_UCB_EXTENSION; 


f 
i 


/* 
. NETWORK LOGICAL LINK (NETWORK MAILBOX) EXTENSION 
t 


CBDEF7 structure prefix UCB$; 


aggregate 
FILL_11 byte 
NT_DATSSB longword unsigned; 
NT_INTSSB Longword unsigned; 
NT_CHAN word unsigned; 
FICL ict vor union fi 
FILL- ructure fill; 
ield length 2; 
field; 
field; 


ix 
Ll; 


iis 
word fill prefix UCBDEF tag $$; 
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uCcBs; 


dimension UCBSK_LENGIH fill prefix 


@eeneenenane 


a 


~~ SG RS SS 


aa 


UCBDEF 
/* 


/* 
/t 


/t 


Current offset register contents 
Current offset table index 
cer offset retry count 

Size of local disk UCB 

Size of local disk UCB 


—m-4n 
m 
CuMAOrMO 


Pointer to active CDDB 

Pointer to alternate CDDB 

Pointer to next UCB in CDDB chain 
Pointer to active CDT 

Unique MSCP unit identifier 
Primary path MSCP unit number 
pocandory path MSCP unit number 
MSCP device-dependent parameters 
Address of the CDDB waiting for mnt. ver. 
to complete on this UCB 

MSCP unit flags 

reserved word, for alignment 
Reserved for MSCP enhancements 
Size of MSCP disk UCB 

Size of MSCP tape UCB 


tag $$; 
ADBRESS OF DATA SUBCHANNEL STATUS BLOCK 
ADDRESS OF INT/LS SSB 

DDCMP CHANNEL NO. 


DUMMY FIELD 
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MSGACK b 
BACKP b 
LNKPR] b 

end FILL_5_B8 


constant LOG 


it 
tf 
itfi 
IT 
LN 
end Fl 5 OVERLAY; 


“Kz gi ar a 


end UCBDEF 


/* 
i: JOURNAL DEVICE EXTENSION 


aggregate. CBDEF8 structure Eagk En 
BSK_ERL CPRAGTH fill prefix 


pyte dimension y 
JNL “Bt OVERLAY union f 
P yangeers sulceds 
§ ovearars unsigned; 

end INL “BCb. OVE 

JNL_RUL” Longword unsigned; 

JNL-WQFL Longword uns gned; 

JNL-WOQBL Longword unsigned; 

JNL-FQFL Longword unsigned; 

JNL~FQBL paneer’ unsigned; 

JNL_NAM characte 

JNL_NAM byte one taned dimension 18; 

a 4 byte fill prefix UCBDEF tag $$; 
UOT Lenguore unsigned; 

INLD ID word unsigned; 

JNL_MUNIT Anat unsigned; 

JNL-MASK Longword unsigned; 

JNL =ASID ove LAY union fill; 
“JNL_ASID longword unsigned; 
JNL-NDL Lon pore unsigned; 

end JNL-ASID_OV 

JNL -Rere laateerd unset soos ¥ 


tongvord wactaeed 
Longword unsigned; 


= longword unsigned; 
JNL-RMBLK Longword unsigned: 
JNL_CWQFL longword unsigned: 
JNL iti tongvord une |gned 


equals 1 prefix UCB tag SC; 
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UCBDEF tag $$; 


ADDRESS OF BUFFER CONTROL BLOCK 
ALLOCATED JOURNAL DEVICE LIST 


ADDRESS OF RUL ine 40 he ONLY) 


E R 
FORCE QUEUE ey rg LINK 
poplar NAME LENGTH 
JOURNAL NAME 
SPARE 
QUOTA FOR RU_JOURNALS 
JOURNAL ID (TAPES ONLY) 
MASTER'S ite ICE UNIT NUMBER 
JOURNAL MASK 

ASSIGN ID 

POINTER TO NAME TABLE DEVICE LIST 


LOCAL MS da COUNT 
TOTAL 


NT 
ORWARD LINK 
ACKWARD LINK 


IT MAP 
ER BLOCK 
ite Q pecauerd \imk 


JOURNAL UCB LENGTH 


MESSAGE ACK/NAK 

BACKPRESSURE (1=> NO FLOW) 

LINK PRIORITY (IGNORED) 

NETWORK CONSTANTS 

CONNECT IS FOR LOGICAL LINK (NOT SINGLE MSG) 


0 NUM (PROTO UCB ONLY) 
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end UCBDEF8; 
je. 
js NI DEVICE EXTENSION 


aggregate. CBDEF9 structure Ear Cent 


byte dimension v BSK rENGeR fill prefix UCBDEF abee $$; 
NI_H LoAPTe Longword unsigned; /tADDRESS OF NI DEVICE Meher 4 yh 
NI “MLTPTR lLongword oc yes /*ADDRESS OF PROTOCOL MULTICAST BLE 
constant NI_LENGTH equals . prefix UCB$ tag K; /*SIZE OF NI DEVICE UCB 
constant NI_LENGTH equals . prefix UCBS tag C; /*SIZE OF NI DEVICE UCB 


end UCBDEF9; 
end_module SUCBDEF ; 


SYS 


ag 


SYSDEFQZ.SDL;1 16-SEP-1984 16:45:49, $8 Page 73 


BODULE STTYUCBDEF ; 

/* STTYUCBDEF follows here only because there is no way to get the 

/* UCBSK_LENGTH symbol into another module. TTYUCBDEF was formerly 

4 included in TTYDEF.MAR. 

v TERMINAL DRIVER DEFINITIONS 

* These definitions define the device dependent extensions of the UCB. 
* Certain portions of the ucb are assumed to be contiguous and must not 
* be split. These areas are documented in the following definitions. 
aggregate TTYUCBDEF structure prefix UCB$; 


TT_UCBFILL byte dimension MUCB_LENGTH fill prefix UCBDEF tag $$; 


/t 
oe Logical terminal UCB extension 
TL_CTRLY lLongword unsigned; /* CONTROL Y AST BLOCK LIST HEAD 
TL_CTRLC Longword unsigned; /* CONTROL C AST BLOCK LIST HEAD 
TL_OUTBAND Longword unsigned; /* QUT OF BAND CHARACTER MASK 
TL_BANDQUE Longword unsigned; /* OUT OF BAND AST QUEUE 
TL_PHYUCB Longword unsigned; /* THE PHYSICAL UCB ADDRESS 
TL_CTLPID es unsigned; /* CONTROLING PID (USED WITH SPAWN) 
TL_BRKTHRU quadword unsigned; /* FACILITY BROADCAST BITMASK 
constant TL_LENGTH equals . tag C; 
constant TL_LENGTH equals . tag K; 
/* Terminal class driver dependant region 
i Split here between local and remote terminal UCB's 
® 
TTYRTTUCB union; /* local/remote union (overlay) 
TTYUCB structure; /* this structure defines remainder of local ucb 
/* READ TIMEOUT CONTROL 
TT_RDUE lLongword unsigned; /* ABSTIME WHEN READ TIMEOUT DUE 
TT_RTIMOU lLongword unsigned; /* ADDRESS OF READ TIMEOUT ROUTINE 


/* TERMINAL DRIVER STATE TABLE 


TT_STATE_OVERLAY union fill; 
STATE quadword una jeneds /* CURRENT UNIT STATE VECTOR 
TT_STATE_Q BLOCK structure fill; 
TT sraret tg union fill; 


TT-STATE1 FIELDS structure prefix TTV3; 
-POWER bitfield mask; /« 
ST_CTRLS bitfield mask; /* 
ST_FILL bitfield mask; /* 
ST_ CURSOR bitfield mask; /* 
ST_SENDLF bitfield mask; /* 


/* ADDRESS OF THE LOGICAL UCB 
C 
C 


~w 
~ 
7 
an 

e 
a 
wn 
nm 
2 
we 
w 
wm 
wr 
~o 
-_- 
wT 
co 
o 
_- 

Y 
a 
w 
” 

i 
~o 
- 


gned; 
ture 


SHSSSSeeoeoeeoeeeoeoeeeuoeeoaeoeoeeewewve 
OOO Oe Om Oem Om Oem Om OO Om Oem OO Oe Om Om Oe OE Oem Om Oe Om 8 Em OE OR 8 8 Oe 
Woe SE ee ee We ee ee ee He 
BPH MPS HEH HHH HH YM H HHH HHH HHH HHH Hee wew 


DBOABAOBAAOO:s 


FIELDS 
ERLAY; 
VERLAY union fill; 
word unsi 
DS etre 
b 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
lLongword unsigned; 


longword unsigned; 
longword unsigned 


ACKSPACE 
ULTI 
RITE 
0 
DITREA 
OVERIF 
ECAL 
Wit 
TE1_09 
lon 
gone 
TRLO 
EL 


etree tet oO Nem Fetter ereere ett atl atl ata ak ak aka ake ak kak ahahaha k kk 
Ree er YD KE ee ee ee ee ee ee rr hh ee 
NAMNMVWHHWOOHR 6 KK K—- YVYNVMVMMHVNVWHVHVUHMHVHVHWHVHHVHVHHHHHHHHHNNONONeE FFE DW = 
- «nm Kon vo <«< 
Ure e- 1 t we 1 == 
c re Cc &e wee 
ov bee eUre ww 
cre c al aa 
eo - euvwTD q tt 
cc - led 
oe - bm 


/* DEFAULT CHARACTERISTICS 


— 
*e 
J 
a 
” 
o 
~ 
co 
be 
(ve) 
o 
” 
> 
yn” 


F 
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/* WRITE QUEVE POINTERS 


11 =u Longword unsigned; /* Write queue forward Link. 
TT -WBtl Longword ee /* Write queue backward Link. 
TT WwW RTBUE longword une lene /* Current write buffer block. 
/* ADDRESS"AND LENGTH OF MUCTICECHO STRING 
TT_MULTI aa gt B ana tened; /* CURRENT MULTIECHO gtk ADORESS 
TT_MULTILEN word unsigned; /* LENGTH OF STRING TO OUT 
11a ght ILER word unsigned; /* SAVED MULTI LENGTH 
TT_SMLT Longword unsigned; /* AND THE SAVED ADDRESS 
/* Typeahead butter address 
TT_TYPAHD lLongword unsigned; /* TYPEAHEAD BUFFER ADDRESS 


JR RARER REAR A RE RERRAAAAE EER AAAAAA RR ERA ER EEKAEEEEEEETEETEET EET 


/* DEFAULT SPEED, FILL ,PARITY (MUST BE CONTIGUOUS) 


JRE RERERRARE AREER RERE ERE AAA AERA ERRATA EEE EEE 


TT_DESPEE word unsigned; /* DEFAULT SPEED 

TT_DECRF byte unsigned; /* DEFAULT CR FILL 

TT_DELFF byte unsigned; /* DEFAULT LF FILL 
TT_DEPARI arte unsigned; /* DEFAULT PARITY/CHAR SIZE 
TT_DEFSPE_SPARE1 byte uns gned; 


TT_DEFSPE_SPARE2 word unsigned; 


[to- PTTTITITITILILILITTTITLTTLLITLLL LIL LiL t iii tiiin 


/* 
Oe DEFAULT TERMINAL TYPE AND SIZE (MUST BE CONTIGUOUS) 


FREE CRRA ARERA ARERR ee 


TT_DETYPE byte unsigned; /* DEFAULT TERMINAL TYPE 

TT_DESIZE word uns }oned; /* DEFAULT LINE SIZE 

TT_SPARE1 byte uns igned; /* SPARE BYTE MUST FOLLOW 
[t-- ssuneSeoncaanbennsetbnteters PARE RALASALLAASEL ALAS SS ASSES AALS A SRSA SS 


/* SPEED, FILL, PARITY (MUST BE CONTIGUOUS) 


JESS MRSA AAAAAE AAA AAAAAAA RARER RARER AAAAAREEEE ET 


TT_SPEED_OVERLAY union fill; 
TT ED 


T_SPE word unsigned; /* SPEED CODES (SPLIT SPEED) 
TT~SPEED FIELDS struc ure fill; 
TT_TSPEED byte unsigned; /* TRANSMIT SPEED 
TT “RSPEED FIELDS: unsigned; /* RECEIVE SPEED 
end TT SPEED _F 

end TT _SPEED POVERLAY: 
TT_CRFILL byte unsigned; /* NUMBER FILLS TO OUTPUT ON CR 
TT LFFILL byte unsigned; /* NUMBER FILLS TO OUTPUT ON LF 


PARITY_OVERLAY union fill; 


SY 


en 
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TT_PARITY as unsigned; /* PARITY AND CHARACTER SIZE DEFINITIONS 
TT-PARITY_BIT structure fill; 
TT_XXPARITY field mask; /* UNUSED 
TT_DISPARERR bitfield mask: /* SP pete? BISREGARD PARITY ERRORS 
TT_USERF RANG bitfield mask; /* SPECIFY USER FRAME SETUP 
TT_LEN bitfield mask length 2; /* CHARACTER LENGTH 
TT_STOP bitfield mask; /* STOP BITS 
TT_PARTY bitfield mask; /* PARITY ENABLED 
TT_ODD bitfield mask; /* ODD PARITY 
end TT_PARITY_BITS; 
end PARITY “OVERLAY; 
TT_PAR_SPARE] byte una joned: 
TT_PAR_SPARE2 word unsigne 


/* CURRENT CURSOR AND LINE POSITION FOR FORMATTED OPERATIONS 


TT_CURSOR word unsigned; /* CURRENT CURSOR POSITION 
THZLASTC Bris aigreas 7s CAST FORMATTED OUTPUT CHARACTER 
/* Number of back spaces to output for non-ansi terminals 
TT_BSPLEN word unsigned; /* NUMBER OF BACKSPACES 
/* FILL HANDLING 
TT_LFILL byte unsigned; /* CURRENT FILL COUNT 
/* ESCAPE SYNTAX RULE STATE. 
T_ESC byte unsigned; /* CURRENT READ ESCAPE SYNTAX STATE 
TT_ESC_O byte unsigned; /* OUPUT ESCAPE STATE 
/* Count of characters in interrupt string 
TT_INTCNT byte unsigned; 
/* Bit used for modem control 
TT_UNITBIT word unsigned; /* BIT USED TO ENABLE AND DISABLE MODEM CONTROL. 


= 
= 


PORT SPECIFIC OUTPUT CONTROL 


TT_HOLD “ty union fill; 
TT_HOLD word unsigned; /* UNIT HO DING TANK AND PORT DISPATCH 
TT_H HOLD Biis structure fill prefix TTY 


CHA pyte unsigned: /* tHe ARACTER 
TANK_PREMPT bitfield mask; /* SEWD oiead CHARACTER 
TANK STOP ld mask; OUTPUT 


TANK_ HOLD 
TANK_BURST 

end TT_HOLD BITS; 

end tT _HOLB_OVERLAY; 


ACTIVE 
d mask; /* DMA ACTIVE **** SHOULD MOVE BEFORE BURST **** 


H 
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TT_PREMPT byte unsigned; /* THE BYTE USED TO PREMPT INPUT 
TT_OUTYPE byte unsigned; /* TYPE OF OUTPUT THAT THIS CALL 
/* CLASS & PORT VECTOR POINTERS 
TT_GETNXT Longword unsigned; /* ADDRESS OF CLASS INPUT ROUTINE 
TT_PUTNXT Longword unsigned; /* ADDRESS OF CLASS OUTPUT ROUTINE 
TT CLASS lLongword unsigned; /* ADDRESS OF CLASS VECTOR 
TT_PORT Longword unsigned; /* ADDRESS OF PORT VECTOR 
TT_OUTADR engeere na tenet: /* ADDRESS OF OUTPUT CURRENT STREAM 
TT_OUTLEN word unsigned; /* LENGTH OF OUTPUT STREAM 
TT_PRTICTL 5 pee union on 
TT_PRTCT word uns /* THE PORT DRIVER CONTROL WORD 
TT ~PRICTL BITS siettire “iu prefix TTYS; 
PC_NOTIME bitfield mask /* IF SET NO TIMEOUT WILL BE CALCULATED 
C"DMAENA bitfield aask: /* DMA CURRENTLY EN 
C_DMAAVL bitfield mask; /* DMA_SUPPORTED ON THIS PORT 
C_PRMMAP bitfield mask; /* UNIT CAN HAVE PERMANENT MAP REGISTERS 
PC_MAPAVL bitfield mask; /* MAP REGISTER tks ae ALLOCATED 
PC_XOFAVL bitfield mask; /* AUTO aA SUPPORTED ON THIS PORT 
PC_XOFENA bitfield mask; /* AUTO XOFF CURRENTLY ENABLED 
ss Hf bitfield mask; /* don't do free Linefeed after creturn 
T-PRTICTL_BITS; 
end TT “pRICTL TOVERL LAY; 
/* MODEM CONTROL DEFINITIONS 
TT_DS_RCV byte unsigned; /* CURRENT RECEIVE MODEM 
TT_DS_TX byte unsigned; /* CURRENT TRANSMIT ee 
TT_DS_ST word unsigned; /* CURRENT MODEM STATE 
TT_DS_TIM word unsigned; /* CURRENT MODEM TIMEOUT 
TT i a OVERLAY union fill; 
TT_MAINT byte unsigned: /* MAINTENANCE PARAMETERS 
TTIMAINT_ BITS structure fill; 
TT_MAINT FILL bitfield length 7; 
TT_DSBL Bistiete mask; /* LINE DISABLED 
end TT_MAINT BI 
end tT _MAIRT_OVERLAY; 
TT_OLDCPZORG byte unsigned; /* spare byte make this longword alligned 


constant TT_CLSLEN equals . tag C; 
constant TT_CLSLEN equals . tag K; 


JRRAAAAAAAA AAA AAEAAAAAA AAA AAAAAAAA ARATE AAAAAAEAAREAAAAARAETEE 
/t 
/* Terminal Port driver dependant extension region 


P_MAP oop unsigned; /7* UNIBUS MAP REGISTERS 
1p STAT bve LAY union fill; 
AT byte unsign /* DMA PORT SPECIFIC STATUS 
TP-STAT_BITS Strusturt neti prefix TIS; /* BITS DEFINED IN THE DMA STATUS WORD 
TP_ABORT bitfield mask; * DMA ABORT REQUESTED ON THIS LINE 
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TP_ALLOC bitfield mask; /* ALLOC MAP_FORK IN PROGRESS 
-DLLOC bitfield mask; /* DEALLOCATE MAP FORK IN PROGRESS 
end TP_STAT BITS; 
end TP_STAT_OVERLAY; 
TP_SPARE byte unsigned; 
TP_SPARE word unsigned; 


/* refresh, or all breaks. 


constant TP_LENGTH equals . tag C; 
constant TP_LENGTH equals . tag K; 
constant TT_LENGTH equals . tag C; 
constant TT_LENGTH equals . tag K; 
TT_STATE_SX structure prefix TTY$; 
SX_POWER bitfield; /* 
SX_CTRLS bitfield; /* 
SX_FILL bitfield; /* 
SX_CURSOR bitfield; /* 
SX_SENDLF bitfield; /* 
SX_BACKSPACE bitfield; /* OUTPUT BACKSPACES FOR SEVERAL LOOPS 
SX_MULTI bitfield; /* 
SX_WRITE bitfield; /* Write state 
X_EOL bitfield; /* 
SX_EDITREAD bitfield; /* 
SX_RDOVERIFY bitfield; /* 
SX_RECALL bitfield; /* 
X_READ bitfield; /* 
SX_FILLBITS bitfield length 32-*; /* END OF FIRST LONGWORD 
SX_CTRLO bitfield /* 
SX_DEL bitfield /* 
SX_PASALL bitfield /* 
SX_NOE CHO bitfield /* 
SX_WRTALL bitfield /* 
SX~PROMPT bitfield /* 
SX_NOFLTR bitfield /* 
WESC bitfield /* 
SX_BADESC bitfield /* 
L bitfield /* New Line must directly precede 
bitfield 
bitfield 
bitfield 
bitfield 
bitfield 
bitfield 
bitfield 
bitfield 
bitfield 
bitfield 
bitfield 
bitfield 
bitfield 
bitfield 
bitfield 
bitfield 
bitfield 


Be Se Ge Ge Me Se Ge Gs Se Se Ge Gee Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge 
Ss 
cs 


“ESCAPE /* 
SX~TYPFUL /s 
SX~SKIPLF 
SX-ESC /* 
SX~WRAP /* 
SX~OVRFLO /* 
SX~AUTOP /* 

“CTRLR /* 
SX~SKIPCRLF /* 

“EDITI /* 
SX~ TABEXPAND /* 

“QUOTING /s 
SX~OVERSTRIKE /s 
SX" TERMNORM /* 
SX"ECHAES /s 
SX~PRE /* 
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CT_FLAGS + eat union fill; 


$ word un 
CT_FLAGS_BITS structure unsige?: prefix 
WIIRP_BSY bitfield mask; 
TRLO™ bitfield mask; 
CANCTRL bitfield mask; 
INWRTFDT bitfield mask; 
QUOTA bitfield mask; 
VAXTOVAX bitfield mask; 
ite bitfield mask; 
T_FLAGS BITS; 
end cT {FLAGS OVERLAY; 
CT_QCTPCNT word unsigned; 
CT-WIIRP lLongword unsigned; 
CT_TQE lLongword unsigned; 
CT_WeTOrL Longword unsigned: 
CT Net QBL Longword unsigned; 
CT_STALLOFL Longword unsigned: 
CT"STA Lost Longword unsigned; 
CT-WRICTP Longword unsigned; 
CT_WRTCUR Senger’ une gneds 
CT_WRTSIZ word unsigned; 
CT"WRTCNT word unsigned; 
CT_MAXMSG word unsigned: 


SX_NINTMULTI bitfield; /* 
SX_RECONNECT bitfield; /* 
SX_CTSLOW bitfield; /* 
SX_TABRIGHT bitfield; /* 
end TT_STATE_SX; 
end TTYUCB? 
/* remote terminal extension 
RTTUCB structure; 
RTT_NETUCB Longword unsigned; /* 
RTT_NETWIND Longword unsigned; /* 
RTT_IRPFL lLongword unsigned; /* 
RTT_IRPBL longword unsigned; /* 
RTT_NETIRP lLongword unsigned; /* 
RTT_BANDINCL Longword unsigned; /* 
AA ad Longword unsigned; /* 
RTT_BANDEXCL Longword unsigned; /* 
RTT_BANDEXMSK longword unsigned; /* 
RTT_PROVRS byte unsigned; /* 
RTT =PROECO byte unsigned; /* 
RTT_LINK word unsigned; /* 
J byte unsigned; /* 
RTT_SYSTYPE word unsigned; /* 
RTT_FILLBYTE byte unsigned; / 
/* CTERM driver only 


/* 


“FLGS"'; 


ET IIRP 
OUT OF BAND INCLUDES 
OUT OF BAND INCLUDE MASK 
out of band exclude mask 
out of band exclude 


PROTOCOL VERSION 
PROTOCOL 
LINK NUMBER (for LOGINOUT) 


ceuset NUMBER CONNECTED 
SYSTEM TYPE (VMS=7) 


* fill - use a... gk se et 


MISC FLAGS 


WIIRP BUS 

CTRLO INP ROGRESS 
ee CTRLO ON WRITE 
IN WRITE FDOT 

A CHARGED 


VAX TO VAX 
DO BUFFERED WRITES 


QUEVED CTP COUNT 
WRITE IIRP 
TQE_ ADDRESS 
WAITING FOR WRITE 
TO NET QUEUE 
IRPs BEING HELD 
QUEUE 
BUFFERED WRITE CTP 
CURRENT FILL POINTER 
REMAINING SIZE 
COUNT SINCE LAST TQE 
MAX WRITE TO NET SIZE 


$ 88 


K 
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CT_MAXREAD word rae ep: /* MAX READ IN SERVER 
CT_LEGALMSG Longword unsigned; /* LEGAL MESSAGE MASK 
CT_VERSION byte unsigned; /* CTERM VERSION 
CT_ECO byte unsigned; /* CTERM ECO 
CT_FILLWORD word unsigned; /* fill 
CT_DEBUG_FILL CHARACTER LENGTH 4*10; /* 10 LONGWORD FOR DEBUG 
constant RTT_LENGTH equals . tag C; /* Length must be same for both RTTDRIVER 
constant RTT_LENGTH equals . tag K; /* and CTORIVER. 
end RTTUCB; 
end TTYRTTUCB; /* end union 


end TTYUCBDEF; 
end_module STTYUCBDEF ; 
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module SVADEF; 


end V 
end VADEFs 


end_module $VADEF; 


/v+ 
a VIRTUAL ADDRESS VIELDS 


jon pretit VA 
yerure § 

eld meg ton 
d a length 


eld "hited 
cture fill; 


i 
Q 
ield Length. 9 
3 mask Length 


$; 


a 


fil 
23; 
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/*BYTE VIELD 
/ VIRTUAL PAGE NUMBER 
/*SYSTEM SPACE 


l prefix VADEF tag $$; 


/*VIRTUAL PAGE INCLUDING P1 & S$ 


™ 
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module SVCADEF; 
+ 


/* VCA = Volume Cache a This block contains the spec iat tzee caches for 

/* a disk volume; to w the file ID cache, the extent cache, and the R ee, 

/* file cache. The file fo cache and extent cache are together in one block; 

. gh mg Tene is located separately in another block. Both are pointed to 
y the " 


er FROCK CHE VCADEF structure prefix VCAS$; 
E longword unsigned; /* pointer to file ID cache 


EXTCACH HE Longword unsigned; /* pointer to extent cache 
SIZE word unsigned; /* block size 
TYPE byte unsigned; /* block type code 
FLAGS structure byte: /* cache flags 
FIDC_VALID bitfield mask; /* FID cache valid 
Ta bitfield mask; /* Extent cache valid 
FIDC_FLUSH bitfield mask; /* FID cache to be flushed 
= FLAGSee bitfield mask: /* Extent cache to be flushed 
e 
constant "LENGTH" equals . tag K; /* Length of block header 
constant "LENGTH" equals . tag C: /* Length of block header 


/* 
/* The file ID cache consists of the cache header, followed by a longword 
Ze vector of file numbers, densely packed. 


/ 
end VCADEF ; 


aggregate ¥ VCADEF1 structure prefix VCAS$; 
word unsigned; /* number of entries allocated 
FIDCOUNT word uns gned: /* number of entries present 
FIDOCLKID ane unsigned /* FID cache lock id. 
FIDCACB byte unsigned imension 28; /* FID cache blocking ACB 
FIDLIST longword unsigned; /* first entry in List 


fe The extent cache consists of the cache header, followed by a quadword 
/* vector of extents, densely packed. Each quadword contains block count 
- and starting LBN. 

end VCADEF1; 


aggregate y VCADEF2 structure prefix VCA$; 


word nes ned; /* number of entries allocated 
EXT COUNT word uns ene: /* number of entries present 
EXTTOTAL anger’ uns igned; /* total number of blocks contained in cache 
EXTLIMIT word unsigned /* seat of volume to be cached, in percent/10 
FILL_2 word fill tag $$; /* 5 spare 
EXTCCKIO (ongword unsigned /* EXT cache lock i 
EX TCACB byte uns toned imension 28; /* Extent cache ‘Blocking ACB. 
i a8 13). quadword unsigned; /* first entry in 
e : 
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aggregate VCADEF3 structure = VCAS; 
TBLOCKS longword uns gree: 
EXTLBN Longword unsigne 


Je 
/* 


N 
~SEP=1984 16:45:41. Page 
16 1984 16:45 43 83 


number of blocks 
starting LBN 


® 
/* The quota cache consists of the cache header, followed by the cache 
~ entries. Each cache entry is a block as defined below. 


end VCADEF3; 


aggregate y VCADEF4 structure prefix VCA$; 
E word oe Mme ny 
QUOLRU word unsign 
QUOCLKID Longwor signe 
pit. 3 byte {mension Fit tag $$; 


CACHEFLUSH bitfield mask; 
ond QUOCACHEFLAGS; 

UOACB oxte unsigned dimension 28; 
QUOFLUSK CB byte unsigned dimension 28; 
QUOLIST Longword unsigned; 


end VCADEF4; 


cemrepete ¥ VCADEFS5 vereamere prefix VCA$; 
K structu 
QUOSTATUS OVERLAY union fill; 
QUOSTATUS word unsigned; 
QUOINDEX word ean rats 
end QUOSTATUS_OVERL 
QUOLRUX word eeteneal 
QUOLKID Longword unsigne 
QUORECNUM byte unsigned _ 3 tag 
QUOFLAGS structure byte unsigned; 
QUOVALID bitfield mask; 
QUODIRTY bitfield mask; 
end QUOFLAGS; 
USAGE Longword unsigned; 
PERMQUOTA Longword unsigned; 
OVERDRAFT lLongword unsigned; 
end QUOLOCK; 


QUOUIC Longword unsigned; 

constant QUOLENGTH equals - tag K; 

constant QUOLENGTH equals . tag C; 
end VCADEFS; 


end_module S$VCADEF; 


number of entries allocated 
current LRU counter 

whole cache lock I 

2nd longword & block size & type 
cache flags 

cache is valid 

cache is to be flushed 


ACB to deliver blocking AST 


ACB to deliver cache flush AST 
start of entries 


lock status block 


SENQ s 
mig oy caeke of this entry 


LRU index for entry 
lock ID of cache entry 


; /* —— J seonanes 


Vlogs 8 
valid + is present 
dirty @lag 


current usage 
permanent quota 
overdraft Limit 


VIC 
length of quota cache entry 
Length of quota cache entry 


—TAMMOOM 2 Be KOH TOMNMOODZ El KOH ITO MWMOCOOZ EF KCK TOWN IOOOZ SF ACK TOMMOOCOW 
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+ 
VCB = VOLUME CONTROL BLOCK 


THERE IS ONE VOLUME CONTROL BLOCK FOR EACH MOUNTED DEVICE UNIT IN A 
SYSTEM. IT CONTAINS INFORMATION NECESSARY TO CONTROL ACCESS TO AND 
VERIFY CERTAIN VOLUME PARAMETERS IN THE CASE A DEVICE UNIT SHOULD 
t ERRONEOUSLY GO OFFLINE. 
module SVCBDEF; 
aggregate VCBDEF _COMMON structure prefix VCBS$; { COMMON VCB DEFINITIONS 
FORWARD _LINK union fill; 
FCBFL Longword unsigned; /* FCB Listhead forward Link 
BLOCKFL lonaword unsigned; /* or = Blocked request lListhead forward Link 
MEMQFL hengueré unsigned; /* or = Shadow set members queue forward Link 
end FORWARD LINK; 
BACKWARD _LIAK union fill; 
FCBBL_longword unsigned; /* FCB Listhead backward Link 
BLOCKBL longword unsigned; /* or = Blocked request Listhead backward Link 
MEMQBL peers unsigned; /* or = Shadow set members queue backward Link 
end BACKWARD_LINK; 
SIZE word unsigned; /* Size of VCB in bytes 
TYPE byte unsigned; /* structure type of VCB 
constant MRKLEN equals .; /* Mark Length 
constant MRKLEN equals . tag C; /* Mark Length 
#VCBMARK2 = .; /* Second mark point 


oS 


Volume status: 
for disks: 
Index file is write accessed 
Storage map is write accessed 
Primary home block is bad 
A Drege | index file header is bad 
Allocation/deallocation inhibited (bad bitmaps) 
Volume has 24 bit file numbers 
Volume is mounted /group 
Volume is mounted /system 


*@eeee eee 


for cover 

Partial file exists on tape 

Positioned at logical end of volume set 
Wait for volume mount 

Wait for rewind completion 

Wait for user Label 

Cancel 

Must close file 

Don't write trailers 


e@e ene ee ee 


for shadow set members 
This VCB is for shadow set master 
New shadow set member 
Member failed out of shadow set 


SSS BRS SSSA Ws NG 


aes 
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end VOLSTS; 

TRANS word unsigned; 

RVN word unsigned; 

AQB longword unsigned; 

VOLNAME character Length 12; 

RVT bongyore unsigned; 

#VCBMARKS = . ; 

constant COMLEN equals . prefix VCB$ tag K; 
end VCBDEF_COMMON; 


aggregate VCBDEF _DISKS structure pestis vcBs; 
filldisks byte dimension #VCBMARK3 fill; 
constant COMLEN equals . prefix VCB$ tag C; 
tet ays lLongword unsigned; 
oe lLongword unsigned; 


$B 

IBMAPSIZE byte unsigne 
SBMAPSIZE byte unsigned; 
IBMAPVBN byte unsigned; 
SBMAPVBN byte unsigned; 
CLUSTER word unsigned; 
EXTEND word unsigned; 
FREE Longword unsigned; 
MAXFILES Longword unsigned; 
WINDOW byte unsigned; 
LRU_LIM byte; 

FILEPROT word unsigned; 


STATUS2_OV 
STATUS 
STATUS 

WR 


RETAINMAX quadword unsigned; 
VOLLKID Longword unsigned; 
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VOLUME TRANSACTION COUNT 
RELATIVE VOLUME NUMBER 
ADDRESS OF AQB 

VOLUME LABEL BLANK FILLED 
ADDRESS OF UCB OR RELATIV 
THIRD MARK POINT 

LENGTH OF COMMON AREA 


E VOLUME TABLE 


LENGTH OF COMMON AREA 
LBN OF VOLUME HOME BLOCK 
LBN OF ALTERNATE VOLUME HOME BLOCK 


LBN OF ALTERNATE INDEX FILE HEADER 
LBN OF INDEX FILE BITMAP 

LBN OF STORAGE BITMAP 

SIZE OF INDEX FILE BI *MAP 

SIZE OF STORAGE BITMAP 

CURRENT VBN IN INDEX FILE BIT MAP 
CURRENT VBN_IN STORAGE MAP 

VOLUME CLUSTER SIZE 

VOLUME DEFAULT FILE EXTENSION LENGTH 
NUMBER OF FREE BLOCKS ON VOLU 

AXIMUM NUMBER OF FILES ALLOWED ON VOLUME 
VOLUME DEFAULT WINDOW SIZE 

VOLUME DIRECTORY LRU SIZE LIMIT 
VOLUME DEFAULT FILE PROTECTION 
MOUNT COUNT 

INDEX FILE EOF UPDATE COUNT 
NUMBER OF RESERVED FILES ON VOLUME 
NUMBER OF BYTES IN A RECORD 


VOLUME BLOCKING FACTOR 
SECOND STATUS BYTE 


VOLUME IS TO BE WRITE-THROUGH CACHED 
ALL CACHEING IS DISABLED ON VOLUME 
VOLUME CAN UNDERGO MOUNT VERIFICATION 
ERASE DATA WHEN BLOCKS REMOVED FROM FILE 
TURN OFF HIGH-WATER MARKING (D = ON) 


non-shared mount 

CLUSTER WIDE LOCKING NECESSARY 
ADDRESS OF FCB OF DISK QUOTA FILE 
ADDRESS OF VOLUME CACHE BLOCK 
ADDRESS OF VOLUME QUOTA CACHE 
LENGTH OF QUOTA CACHE TO ALLOCATE 
COUNT OF PENDING WRITE ERRORS 
VOLUME SERIAL NUMBER (DISKS ONLY) 
JOURNALING I0 COUNT 

MINIMUM FILE RETENTION PERIOD 
MAXIMUM FILE RETENTION PERIOD 
VOLUME LOCK ID 
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VOLCKNAM character Length 12; /* 
Riuaree Longword unsigned; /* 
TTIME quadword uns igne ; /* 
MERHOFL longuord a igned; /* 
MEMHDBL lLongword “2. He /* 
LUT byte yerd., yrs gne /* 


STS {~ te yi FE /* 


SHAD RESV longword unsigned; /* 
ACB Byte unsigned dimension 28; /* 
MIN - 7 structure /* 
Cases dimension 20 fill; 
end nin ‘eta 
MAX_CLASS struct /* 
ILL ep byte dimension 20 fill; 


“F 
end MAX hte 
constant ENGTH" equals . prefix VCB$ tag K 
constant “‘LENGTH'’ equals . prefix VCB$ tag C 


end VCBDEF _DISKS; 
/* 
fe SHADOW SET MEMBER VOLUME CONTROL BLOCK FIELDS 


egeregere VC VCBDEF __SHADOW structure pretis vCB$; 
Lshadow byte siaens ter MVCBMARK3 fill; 
MEM_UCB longword unsigned; /* 


MAST_UCB Longword unsigned; /* 
MAST “VCB longword unsigned; /* 
WORKGFL Longword unsigned; /* 
WORKQBL longword unsigned; is 


MSCP_STS Longword uns gned; 
- DM_RESV quadword uns gned; 
onstant SHAD_LEN equals .; /* 

end VCBDEF _ SHADOW? 


/* 
fe MTAACP VOLUME CONTROL BLOCK FIELDS 


eggregate ve VCBDEF2 stray ture Eamanes. 
te dimension ay BMARK3 oti prefix 


VCBDEF ta 
CUR “Fip “BYERLAY union f . 


FID longword satan ed; /* 
CURT FID_FIELDS structure fill; 

“CUR_NUM word unsigned; /* 
SEQ yore uns toned: /* 
“FID_FIELDS; 

“OVERLAY; 
RLAY union fill; 
sonpyere unsigned; /* 
_FIECDS structure fill; 
NUM word unsigned; /* 
“SEQ word unsigned; /* 
“FID_FIELDS; 
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NAME FOR VOLUME Loss 

VOLUME BLOCKING LOCK. 

VOLUME MOUNT TIME 

SHADOW SET MEMBERS QUEUE HEADER FL 
SHADOW SET MEMBERS QUEUE HEADER BL 
ACTIVITY COUNT/FLAG 

STATUS BYTE RELATIVE 10 MEMHDFL 
RESERVED FOR SHADOW SET PROCESSING 
ACB FOR BLOCKING AST. 

MINIMUM CLASSIFICATION 


MAXIMUM CLASSIFICATION 


LENGTH OF STANDARD VCB 
LENGTH OF STANDARD VCB 


Shadow set member UCB address 
Shadow set master UCB address 
Shadow set master VCB gceress 
Work queue forward Link 

Work queue backward Link 

MSCP status information 

Reserved for future enhancements 
Shadow set member VCB Length 


$$; 
CURRENT FILE IDENTIFICATION 


CURRENT FILE SECTION NUMBER 
CURRENT FILE SEQUENCE NUMBER 


DENTIFICATION AT START OF SEARCH 


FILE I 
FILE SECTION NUMBER AT START OF SEARCH 
FILE SEQUENCE NUMBER AT START OF SEARCH 
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end ste FID_OVERLAY; 
MODE_OVERCAY Gnion fill; 


end MODE_OVERLAY; 
TM byte Unsigned; 
CUR_RVN ante “oat ned; 
ST_RECORD Longword unsigned; 
MVC Longword unsigned; 
WCB longword unsigned; 
VPFL Longword uns gned; 
VPBL vengeere unsigned; 
USRLBLAST Longword uns igned; 
LBLCNT byte unsigned; 
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/* NUMBER OF TM'S ge? ar 
/* CURRENT RELATIVE V 


/* NUMBER OF RECOR bs \U PTO AND at LAST TAPE MARK 


OE word unsigned; /* MODE OF OPERATION 
MODE BITS structure. fill; 
Ove REX P bitfield: * OVERRIDE EXPIRATION 
OVRACC bitfield: /* OVERRIDE ACCESS 
OVRLBL bitfield: /* OVERRIDE LABELS 
OVRSETID bitfield: /* OVERRIDE SET IDENTIFIER 
INTCHG bitfield; /* INTERCHANGE TAPE 
EBCDIC bitfield: /* EBCDIC CODE SET 
NOVOL? bitfield: /* DO NOT WRITE A voL2 LABEL 
HOR bittields /* DO NOT WRITE HDR3 LABE 
STARFILE bitfield; /* CURRENT FILE IS A STARLET PRODUCED FILE 
ENUSEREOT bitfield; /* SET WHEN USER HANDLING OF EOT IS NABLED 
BLANK bitt eld; /* SET FOR AVL WHEN NO READ SHOULD HAPPEN 
T bitfield: /* SET FOR AVL WHEN NEXT VOL MOUNTED SHOULD. BE INITED 
AOAUTO bitfield; /* MTAACP NOT RUNNING IN AVL AND »itop 
OVRVOLO bitfield; /* OVERRIDE THEVOL1 OWNER IDENT 
; FILA Access bitfield; /* SET IF ACCESS ROUTINE ALLOWS CHEER OF VMS PROTECTION ON FILE 
en Py 


/* ADDRESS OF MAGNETIC TAPE VOLUME 


/* ADDRESS OF WINDOW FOR THIS V 
/* VIRTUAL PAGE LIST Le) D 
/* VIRTUAL PAGE ist 


TAIL 
/* ADDRESS OF USER LABEL AST CONTROL BLOCK 
/* Count of HDRn Labeis read on file open 


VOLUME 


/* NOTE THAT FCP AND MTAACP SHARE VCBSW_MCOUNT(DISPLACEMENT 76) 
end VCBDEF 2; 
eperepere VE VCBDEF3 structure eee 


byte dimension #VCBMARK2 eri prefix VCBDEF tag $$; 
QNAMECNT byte unsigned; /* BYTE COUNT OF QUEUE NAME 
Pe QNAME character Length 20; /* ASCII NAME OF QUEUE FOR THIS DEVICE 
= JOURNAL ACP VOLUME CONTROL BLOCK FIELDS 
end VCBDEF3; 


sagregete vo VCBDEF4 structure prefix V 
byte dimension #VCBMARK3 veer i prefix VCBDEF tag $$; 


R longword unsigned: /* journal media characteristics 
JNL CHAR BITS structure fill; 
JNL_BISK bitfield mask; /* journal is on disk 
ML. TAPE bitfield mask; /* journal is on tape 
Lainerl tad mask; /* temporary file 


end INL CH 
end INL CHAR OVERLAY; 


JNL_JFTR lLongword unsigned; /* JOURNAL FILE TABLE ADDRESS (IN ACP) 


F 
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JNL_IRPS Longword unsigned dimension 2; /* 
JNL_JMT Longword unsigned; /* 
JNL_UCB lLongword unsigned; /* 
JNL_JMTFL Longword unsigned; /* 
JNL_JATBL Longword unsigned; /* 
JNL_MODE byte unsigned; /* 
JNL_COP word unsigned; /* 
FILC_2 byte fiil prefix VCBDEF tag $$; /* 
JNL_MASK Longword unsigned; /* 
constant JNL_LENGTH equals . prefix VCB$ tag K; /* 
constant JNL_LENGTH equals . prefix VCB$ tag C; /* 


end VCBDEF4; 
end_module $VCBDEF; 


IRP QUEUE HEADER 
OURNAL MERGE TABLE) 
COPIES 


H OF JOURNAL VCB 
H OF JOURNAL VCB 
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gagute SVLIDEF; 


/* VOL1 aes) “we tt TAPE LABEL 
/* THIS IS THE FIRST BLOCK ON arr eon 


LABELED MAGNETIC TAPE. 
re IT IDENTIFIES THE VOLUME AND 17S PROTECTION. 
eogresete Vt VLIDEF structure prefix VL1$; : 
Longword unsigne /*LABEL IDENTIFIER AND NUMBER 'VOL1" 
VOLLBL character length i; /*VOLUM — LABEL 
hore ae byte unsigne eb eCE ACCESS 
character tesgtn: fill prefix VLIDEF tag $8; 4g SPACES 
CYSEODE character Length 13; * SYSTEM CODE 
OWNER_UNION union fill; 
OON INER_IDENT charecter Len th 14; /* VOL1 OWNER ID FIELD 
OLD_VOLOWNER structure f 
VOLOWNER character Length 13; /*VOLUME jee IDENTIFICATION 
DECSTDVER byte unsigne *DEC STANDARD VERSION 


end OLD_VOLOWNER; 
end oyer + URI ON; 
FILL_2 character Length 28 fill prefix VLIDEF tag $$;/*SPACES 
" LP siyen byte unsigned; 7*LABEL STANDARD VERSION ‘3° 
en 


end_module $VL1DEF; 


H 
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module $SVL2DEF; 
/x+ 


/* VOL2 ANSI MAGNETIC TAPE LABEL 
je THIS 1S BLOCK IS WRITTEN TO TAPES WHEN A VMS PROTECTION IS SPECIFIED 


eosresste My VL2DEF structure prefix VL2$; 
ID penguers unsigned; 


ER AND NUMBER ‘VOL2' 
vO pere c 


LABEL IDENTIFI 
mE aracter Length 15; /*VOLUME OuNER IDENTIFICATION 
e 


end_module $VL2DEF; 
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module SWCBDEF; 


/x+ 
. WCB = WINDOW CONTROL BLOCK 
? 
/* THERE IS A WINDOW CONTROL BLOCK FOR EACH FILE ACCESSED 
/* } ‘wh yy oe~. Sap pie SUCH THAT A LARGE PERCE 
/* FILE 1/0 CAN BE MAPPED FROM VIRTUAL TO LOGICAL BLOCK NU 
dh HAVING TO READ THE RESPECTIVE FILE HEADER. 
eneresete WCBDEF structure prefix WCBS; 
Longword unsigned; /* 
WLBL longword unsigned; /* 
SIZE word unsigned; /* 
TYPE byte unsigned; /* 
ACCESS y OVERLAY union fill; 
ACCESS byte unsigned; /* 
ACCESS BITS structure fill; 
READ bitfield mask; /* 
RITE bitfield mask; /* 
TFCP bitfield mask; /* 
SHRWCB bitfield mask; /* 
OVERDRAWN bitfield — /* 
COMPLETE bitfield mask /* 
CATHEDRAL bitfield mask; is 
® 
4 + field mask; /* 


eve t 
end ACCESS BITS; 
end ACCESS EERCAY, 
PID_OVERLAY union fill; 
“PID Longword unsi gned; /* 
PID_ Rie “ $' structure till; 
byte d mension: 2 fill prefix WCBDEF tag 
ner rent word unsigned; /* 
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LIST Apts! tine 

LIST BACKW LINK 
WINDOW BLOCK IN BYTES 

CTURE TYPE OF WCB 


ACCESS CONTROL BYTE 


READ ACCESS ALLOWED (1=YES) 

WRITE ACCESS ALLOWED (1=YES) 

FILE NOT ACCESSED BY FCP IF SET 
SHARED WINDOW 

FILE ACCESSOR HAS ee cite HIS QUOTA 
SET WINDOW MAPS ENTIR 

we COM ate WINDOW (SIE) TO MAP 


LAR 
FILE PLETELY 
FILE EXPIRATION DATE MAY NEED TO BE SET 


PROCESS ID OF ACCESSOR PROCESS 


$$: 
REFERENCE COUNT FOR SHARED WINDOW 


end PID FIELDS; 
end PID TOvERLAY: 
ORGUCB Tongword | nt /* ADDRESS OF ORIGINAL UCB FROM CCB 
ACON Epp Y union f 
ON word a Ris /* ACCESS CONTROL INFORMATION 
/* NOTE = THESE BITS TRACK THE BITS 
/* IN FIBSL_ACCTL 
ACON_BITSO structure fill; 
RITE bitfield; /* NO OTHER WRITERS 
DLOCK bitfield: /* ENABLE DEACCESS LOCK 
FILL_1 bitfield length 2 fill prefix WCBDEF tag. $$;/* U 
SPOOL bitfield; /*” SPOOL Fite ON CLOSE 
WRITECK bitfield; /* SNA BLE WRITE CH 
SEQONLY bitfield: /* SEQUENTIAL ONLY ACCESS 
FILL_2 bitfield fill prefix WCBDEF tag $$; /* SPAR 
WRITEAC bitfield; /* WRITE ACCESS 
READCK bitfield; /* ENABLE READ CHECK 
NOREAD bitfield: /* NO at ER READERS 
NOTRUNC bitfield; /* NO TRUNCATES 
end ACON_BITSO; 
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ACON Bits} structure fill; 
FILL_3 bitfield Length, 2 fill _prefix WCBDEF tag $$; 
* THE FOLLOWING FIELD OVERLAYS THE FIRST 
/* yey? FLAG IN WCBSW_ACON ABOVE. 
NOACCLOCK bitfield; /* NO ACCESS LOCK CHECKING 
FILL_4 bitfield Length 8 fill prefix WCBDEF ye 
READINIT bitfield: A READINIT WAS DONE OVER THIS CHANNEL 
WRITE_TURN bitfield; is FORCE WINDOW TURN ON WRITES 
end ACON BITS1; 
end ACON OVERLAY: 
WWCBMARK2 = . /* SIZE DEVICE INDEPENDENT PART OF WCB 
NMAP word uns {gned; /* NUMBER OF MAPPING POINTERS 
FCB Longword unsigned; /* ADDRESS OF FCB 
RVT Longword unsigned; /* ADDRESS OF RELATIVE VOLUME TABLE 
LINK lLongword uns gned; /* LINK TO NEXT WINDOW SEGMENT 
READS lLongword unsigned; /* COUNT OF READS PERFORME 
WRITES Longword uns gned: /* COUNT OF WRITES PERFORMED 
STVBN longword unsigned; /* STARTING VBN MAPPED BY WINDOW 
constant MAP equals . prefix WCB$ tag K /* MAP POINTERS START HERE 
constant MAP e eguats . Pape WCBS tag /* MAP POINTERS START HERE 
constant “‘LENGTH'’ equals . prefix wWCB$ tag Gi /* LENGTH OF STANDARD WCB SANS POINTERS 
constant ‘LENGTH’ equals . prefix WCB$ tag C /* LENGTH OF STANDARD Bo SANS POINTERS 
/* NOTE THAT VIRTUAL MAPPING 
/* NEEDS P1 —. INMEDIATELY 
/* FOLLOWING STV 
P1_COUNT word unsigned; /* COUNT FIELD OF "FIRST POINTER 
P1"LBN Longword unsigned; /* LBN FIELD OF SECOND POINTER 
P2-COUNT word unsigned; /* COUNT FIELD OF SECOND POINTER 
P2-LBN lLongword unsigned; /* LBN FIELD OF FIRST POINTER 
/* FORMAT OF RETRIEVAL POINTER 
end WCBDEF; 
aggregate WCBDEF1 structure prefix WCB$; 
T word unsigned; /* COUNT FIELD 
LBN Longword unsigned; /* LBN FIELD 
end WCBDEF1; 
evorepete UC UCepere structure prefix WCBS origin FILL_6; 
T word unsigned; /* PREVIOUS RETRIEVAL POINTER 


PREVLBN longword unsigned; 


FILL_6 byte fill prefix WCBDEF tag $$; 
end WCBDEF 2; 


osoregete WCBDEF3 structure prefix WCB 

FILL_7 byte dimension #WCBMARK2 ‘ati prefix WCBDEF tag $ $$; 

NL_REFC word unsigned; /* REFERENCE COUNT AT SASSJNL TIME 
JNL_FCOD word unsigne /* FACILITY CODE OWNER JOURNAL CHANNEL 
JNL-STAT OVERLAY union’ 7 * 

byte uns ign /* STATUS 


“JNL 
JNU SIAT ath Se structure fill ; 
/* JOB ALLREADY WRITTEN OVER THIS CHANNEL 


/* RETRIEVAL POINTER FORMAT 


on 3 sis" 
end JNL im SOVERCAY 
JNL_ACMOD byte eR a. /* ACCESS MODE 
JNL_PROT word unsigned; /* PROTECTION MASK 


K 
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JNL-WLBL Longword unsigned; 
JNL_RC Longword unsigned; 


constant JNL_LEN equals . prefix WCB$ tag K; 
constant JNL_LEN equals . prefix WCBS tag C; 


end WCBDEF3; 
end_module SWCBDEF ; 


NUMBER 
LAST ng WRITTEN 
CHANNEL OWNER 
TRIES WRITTEN OVER CHANNEL 
HANNEL WAS ASSIGNED 
B QUEUE 


OCK 
JOURNAL CHANNELS 
JOURNAL CHANNELS 
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ene SWSLDEF ; 
an WORKING SET LIST DEFINITIONS 


aggregate. WSLDEF union prefix WSLS; 


BITS eee geths 

cfs bitfield m /*WSL ENTRY VALID 
PAGTYP bitfield co length 3; /*PAGE TYPE (SEE PFNDEF FOR VALUES) 
PFNLOCK bitfield mask; /*PAGE FRAME LOCK 

/*THE PRECEDING 5 BITS MUST BE IN ORDER 
exe bitfield ye foe eg es SET LOCK 
GOODP AGE bitfield m /*TH 1s PAGE SHOULD REMAIN IN WS ONE MORE PASS 
FILL_1 bitfield rit ‘prefix WSLDEF tag $$; /*SPARE 
MODIFY bitfield m /*SAVED MODIFY BIT 
end USLDEF BITS; 


/*THE FOLLOWING 5 BITS MUST BE IN ORDER 
: constant “‘LENGTH’' equals 4 prefix WSL tag $C; /*SIZE OF WS LIST ENTRY 
- PAGE TYPE VIELD DEFINITIONS 


fe N.B.: These constants have been adjusted by left-shifting the constant by the offset to the field WSLSV_PAGTYP. 
/* To use these when explicitly extracting the field, the adjustment must be removed. for example: 


/* IF .wsle Cwsl$v_pagtyp] EQL (wsl$c_system*-1) ! Or (wsl$c_system/2) 


constant PROCESS equals %X00 prefix WSL tag $C; aeenttine PAGE 
constant SYSTEM equals %X02 prefix WSL tag $C; /*SYSTEM PAGE 
constant ‘"GLOBAL"' equals %X04 prefix WSL tag $C; /*GLOBAL PAGE (READ ONLY) 
constant GBLWRT equals %X06 prefix WSL tag $C; /*GLOBAL Wai TABLE PAGE 
constant PPGIBL equals %X08 prefix WSL tag $C; /*PROCESS PAGE TABLE 

- senesane GPGTBL equals %X0A prefix WSL tag $C; /*GLOBAL PAGE TABLE 

e ; 


end_module SWSLDEF; 


LJ 
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none SWQHDEF ; 
- WAIT QUEUE HEADER DEFINITIONS 


end WQHDEF ; 
end_module SWQHDEF ; 


R FOR WAIT 
QF WAIT QUEUE HEADER 
OF WAIT QUEUE HEADER 
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+ 
XG = Definitions for 


a ae 


{- 


module S$XGDEF; 
constant PR 
constant 
constant 
constant 
constant RCV 
constant 
constant 
constant 
constant ( 
py tee 


EC_XMT 
SEC” XMT1 
TERM_CHAR 

REE 


~s 28©*© 8s 8©®s © 8 © 8 & & & & & & 
n wuvuvU “xD 
r+] oO 
_— 
> 4 
=z 
~ 


16-SEP-1984 16:45:44.34 Page 96 


the fields within the XGDRIVER. 


0 
1 


prefix XG tag $C; 
prefix XG tag $C; 
prefix XG tag $C; 


prefix XG ta 


equals 0 


equals 
equals 


equals 0 increment 1 


prefix XG tag $C; 


/* Bit def's for RCV and XMT CSR 


aggregate XGDEF 
XGDEF BITSO 
ABL 


union fill eile XG$; 


sk; 
Ll prefix XGDEF tag $$; 
ask; 


gth 2; 
refix XGDEF tag $$; 


stru fi 
ENABLE bitfield ma 
FILL_1 bitfield fi 
PRM_SEC bitfield m 
TERM_IDL bitfield mask; 
DATA_SET_IE bitfield mask; 
INT_ENABCE bitfield mask; 
ACT_DSC bitfield mask; 
ONE_S bitfield mask 
ILP_RCS bitfield mask; 
OOP_TYPE bitfield mask Len 
FILL. 2 bitfield fill 
RES IOUAL bitfield mask; 
RI_SEC_STN bitfield wask; 
ERROR bitfield mask; 
DONE_P bitfield mask; 


Primary xmt use vector slot 0 
pegenests xmt use vector slot 1 
Primary rcv use vector slot 2 
Secondary rcv use vector slot 3 
Receive 

Transmit CSR 

Set misc bits 

to access the ind reg (IR) 


IR def's the protocol char 
IR def's rcv errors 
IR der's xmt errors 
IR def's sync charateristics 
IR def's modem state change 
IR use to set station address 
and 7th IR used to define 
primary rcv buffer and address 
th and 9th IR used to define 
secondary rcv buffer and address 
10th and 11th IR used to define 
Po iaery xat buffer and address 
2th and 13th IR used to define 
secondary xmt buffer and address 
14th used to describe term char 
15th unused register 


Enable the receiver 
reserved 
0 = prim 1 = sec buffer and addr 
Term char for RCV's Idle for XMT's 
Enable intrpts for data set change 
Enable introts for rcv and xmt's 
Active (rcv's) Data set change (xmt') 
Sec buffer proceesing is finished 
Interal loopback (rcv) XMT clock src 
Loopb type 
reserved 
as protocols only 

= ¢ontrol 1 = tributary station 
Error on rcv or xmt 
Primary buffer processing complete 


or devices Like CPI which support many 


CMOI 


SYSDEFQZ.SDL;1 
end XGDEF _BITSO; 


/* Misc reg definitions 


/* Protocol parameter definitions Indirect register 0 
ae gh structure yh 


FIL 
end XGDEF_BITS3; 
/* Transmit error definitions Indirect register 2 
XGDEF _BITS4 structure fill; 
MSG_LEN ; 


i ol 


RR bitfield noth 3; 

PROTO tfield Lengt a 3s 

STRIP_SYNC bitfield m 

FILL_& bitfield fill "pred i XGDEF tag $$; /tr 

RCV_BPC bitfield Len engt /* 

FILC_7 bitfield Length 2 fill prefix XGDEF tag $$;/* res 
T RCV bitfield length 3; /* 


16-SEP-1984 16:45:41.36 Page 97 


/* Ind reg saree to access 


User receive flag 


/* Carrier detect tlag 
/* Ring indicator flag 
/* Data set ready flag 


XGDEF BITS1 structure fill; 
IND_REG bitfield Lengt th 4 
FILC_3 bitfield Leng h 3 “HU prefix XGDEF tag $$; /* reserv 
MASTER =RESET bitfield m t: * Master reset bit 
FILL_4~bitfield Length fll prefix XGDEF tag $$;/* reserved 
USER_RCV_FLAG bitfiel ask; /* 
FILL’S bitfield fill spretix XGDEF tag $$; 
CTS FLAG bitfield mas /* Clear to send flag 
CARRIER_FLAG bitfield mask; 
RING FLAG bitfield mask; 
DSR_FLAG bitfield mask; 
end XGDEF_BITS1; 


/* Error control def CRC_CCITT 1's 
/* Protocol type def DDCAP 
/* 8 a strip Powis sync characters 


ved 
REV “bits/char default is 8 
XMT bits/char default is 8 


/* reserved 
/* RCV Latency error 
/* Non-existant memory error 
/* Block check error 
/* Byte ores 7 char parity error 
/* Bit prot ony 
/* When cher’ COUNT and msg len aren't eq 
/* Reserve 
Residual bit count 


XGDEF_BITS3 structure 
FILL_8 bitfield fill prefix XGDEF tag $$; 
LATERCY_RCV bitfield mask; 
NXM_RCV bitfield mask; 
BCC_ERR bitfield mask; 
VRC_ERR bitfield mask; 
ABORT bitfield mask; 
BUFOVR bitfield mask; 
FILL_9 bitfieid fill led XGDEF tag $$; 
ES GIT_CNT bitfield mask Lengt /* 
C_10"bitfield length 5 fill prefix XGDEF tag $$;/* Reserved 


/* Char count indicates a buff too small 
/* Non existant memory 
/* XMT Latency error 


ill prefix XGDEF tag 98: ~ig Geserven 
e 
ill prefix XGDEF tag $$; /* Reserved 
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/* Sync information definitions Indirect register 3 
XGDEF _BITSS Structure fill; 
NAB_OF_SYNC bitfield Length 
FILC 13 bitfield Length rat prefix XGDEF tag 
SYNC bitfield length 8; 
end ODER _BITS5S; 
/* Data set change register Indirect register 4 


XGDEF _BITS6 structure fi 
FTL at bittield Length 4 fill prefix XGDEF tag 


S ittietd mas 
CARRIER bitfield mask; 
RING_IND ah nee mask; 
DSR Bitfield am : 
USER_XMT bittie “ey mask; 
DTR bitfield mask; 
DATA_SGNL bitfie ld m 
FILL_15 bittield fiLL olathe XGDEF tag $$; 
TS ittield mask: 
FILL 16 bitfield length 3 fill prefix XGDEF tag 
end XGDEF _BITS6; 


/* Internal clock def's TX.CSR<8> 


constant INTCLK_OFF equals 0 prefix XG tag $C; 
constant INTCLK_ON equals 1 prefix XG tag SC; 


/* Error control definitions IRO<0:3> 
constant ( 


~—s * © © & & & 
m 
» P=] 
Onmwm P+) 
a 
z 
oO 
m 


equals 0 increment 1 prefix XG tag $C; 


/* Protucol definitions IR0<3:3> 


constant PRO_DDCMP equals 0 prefix XG tag $C; 
constant PRO_-SDLC equals 1 prefix XG tag $C; 
constant PRO-HDLC equals prefix XG tag $C; 
constant BISYNC equals prefix XG tag $C; 
constant GENBYTE equals prefix XG tag $C; 


constant ( 
BPC_8 


————$—<—<——SS 
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/* Number of syncs to send bettweenmsgs 
$$; /* Reserved 
/* Contains the sync char 


$$;/* Reserved 

/* Clear to send 

is Carrier detect 
/* Ring indicator 
/* Data set ready 
/* User transmit 
/* Data terminal ready 
/* Data ore rate 
/* reserve 

/* Request to send 
$$; /* Reserved 


/* No internal clock 
/* Set internal clock 


/* CRC-CCITT preset to 1's 
/* CRC-CCITT preset to 0's 
/* LRC/VRC even 

/* CRC-16 preset to 0's 
/* LRC odd 

/* LRC eve 

/* LRC/VRC "odd 

/* No error control 

/* DOCMP 

/* SOLC 

/* HDLC 

/* BISYNC 


/* General byte 


/* Bits per char definitions. RCV: IRO<8:10> XMT:1RO<13:15> 
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“se © * © 8& &© & 


s 0 increment 1 


/* Baud rate generator definitions IR2<8:11> 


“se ses esos 
@ 
P 
Gc 


increment 1 


/* Sync character definitions IR3<8:15> 


constant SYNC_DDCMP equals 150 
equals 0 


cons 
cons 


tant SYNC_HDLC 
tant SYNC_BISYNC 


/* Struct of parameter buffer 
end XGDEF; 
egate XGDEF1 structure fill prefix XxG$; 


ERR 
PROT 
TX_B 


CNTRL byte unsigned; 
OCOL byte unsigned; 
PC byte unsigned; 


RX-BPC byte unsigned; 


BAOD 


NUM 
SYNC 
ICLK 


XG$V_ 
‘ set 
* XG$V_BUFFER_IN_PREV_POS 


byte unsigned; 
SYNC byte unsigned; 
REG byte unsigned; 
byte unsigned; 

e unsigned 


ed; 
OVERLAY union fill; 
MNTCOOP byte unsigned; 


Bit def for interface with the frame routine 


BUF FER_CHAR 


clear 


clear 
set 


XG$V_COMPLETE_READ 


prefix XG tag $C; 
pretix XG tag : 
equals 50 prefix XG tag $ 


Bu 
Use xXG$ 


ignore 
Buffer i 
compl 
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prefix XG tag SC; 


prefix XG tag $C; 


/* Set 


sync character to HEX 96 
/* Set 
C;/* 


no sync character 
Set sync character to HEX 32 


the type of error control to use 
rotocol type 
MT bits per char 
RCV bits per char 
Line speed 
number of sync to send 
sync char to sen 
Set the internal clock 
RCV/XMT bits per char 


Maint loopb type 


ffer char in the next position 


V_BUFFER_IN_PREV_POS 


the char 
n previous 
ete framed 


osition 
uffer to user 


2 


F 
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/* 


lg mask; 


"284 fill prefix XGDEF i” $$;/* reserved 

E * set if new rcv message 
end MNTCOOP 

end SNTLOOP OVER 

end XGDEF1; 


end_module $XGDEF; 
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